Комбинация клавиш

[VKorablev]

Доброе время суток, подскажите пожалуйста кусок кода, чтоб программа сварачивалась и разворачивалась при нажатии комбинации клавиш Shift+Ctrl+Z

[nick42]

Сначала регистрируешь комбинацию клавиш

void __fastcall TForm1::FormCreate(TObject *Sender)
{
RegisterHotKey(Handle,0,MOD_SHIFT+M OD_CONTROL,'Z');
}

а затем используешь компонент ApplicationEvents:

void __fastcall TForm1::ApplicationEvents1Message(t agMSG &Msg,bool &Handled)
{
if ((Msg.message == WM_HOTKEY)&&(Msg.wParam == 0))
{
if (Form1->WindowState != wsMinimized)
Form1->WindowState = wsMinimized ;
else Form1->WindowState = wsNormal;
}
}

[VKorablev]

спасибо!!!

[VKorablev]

А нет, пишет ошибку что __fastcall TForm1::ApplicationEvents1Message(t agMSG &Msg,bool &Handled) is not a member of 'TForm1' ?? В чем причина?

[nick42]

Причина в том, что Вы скопировали мой текст в свой исходник...
А нужно было бросить на Форму компонент ApplicationEvents (закладка Additional) и вписать код в обработчик события OnMessage для него.

[VKorablev]

какбе не ламер) я все так и сделал сразу) и серовно не работает

[nick42]

- пишет " is not a member of ", а компонент поместили на форму? Чё-т не верится. Но, кстати, там в тексте пробел вкрался лишний (не t agMSG, а tagMSG, ещё и MOD_CONTROL) - это не я ошибся, а вэб-редактор так постарался. Может это причина... .

[VKorablev]

я опечаталсо xD. Спасибо большое