Определение копки

← →
Checist [root] (2003-01-12 04:19) [0]

В событии KeyPress одного компонента нужно сравнить нажатую с нужной - то есть : if key = "нужной кнопки" then...
Как обозначить "нужную кнопку" если это: Enter, Ctrl, Shift, Alt.

← →
Song (2003-01-12 10:33) [1]

IF Key=Chr(VK_RETURN) then ... // - Enter

ну и т.д. Shift - VK_SHIFT, Alt - VK_MENU, Ctrl - VK_CONTROL

← →
Нежить (2003-01-12 11:07) [2]

procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
var Mess: string;
begin Mess := "FormKeyPress With " + TComponent(Sender).Name + " and ";
case Ord(Key) of {F1 - Virtual Key Codes}
VK_RETURN: Mess := Mess + "Enter pressed";
VK_TAB: Mess := "Ты никогда не увидишь подобного сообщения";
VK_ESCAPE: Close;
else Mess := Mess + "Ord(Key) is " + IntToStr(Ord(Key))
end;
ShowMessage(Mess);
end;

Ешё: http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1042307759&n=0

Определение копки Найти похожие ветки