был ли нажат CTRL ?

← →
redlord (2005-01-11 22:03) [0]

всем привет
народ как узнать был ли нажат CTRL
я пробовал делать как показано ниже
но компилятор ругается на ssctrl
(не тот тип)
как это зделать правильно ??

procedure TForm1.Memo2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);

begin
if (shift = ssctrl ) and( key = 13) then showmessage("ок");
end;

← →
Palladin © (2005-01-11 22:04) [1]

ssctrl in shift

← →
Gero © (2005-01-11 22:40) [2]

> shift = ssctrl

Shift это множество, а ssCtrl — значение перечисляемого типа.

← →
redlord (2005-01-11 23:09) [3]

спасибо
ssctrl in shift
то что нужно

был ли нажат CTRL ? Найти похожие ветки