Форум — Ответы     (  К темам )

?	fox`: не могу заставить работать Ctrl+"буква"... (11-03-2003 15:27:23) http://home.parks.lv/fox
... хочу сделать в программе, чтобы при нажатии "Ctrl+"буква"" заголовке формы менялся-бы на "Ctrl+"буква"...", но или я что-то не доделал, или еще что — проект компилится, но принажатии "Ctrl" ничего не происходит, и в дебаггинге "не ловится" это событие ... :( // пример просто с контролом, потому как при добавлении буквы ничего не меняется void __fastcall TF1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { TShiftState Testi; Testi << ssCtrl; if (Shift == Testi) F1->Caption = "нужный текст"; }
Павел (11-03-2003 21:04:47)
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { if (Shift.Contains(ssCtrl)) Form1->Caption = Key; }