клавиатура

← →
ko (2004-07-25 20:55) [0]

Как отловить нажатие клавиши Ctrl+S? Код IF (Key =$11) and(key=$53) THEN ; работать не хочет.

← →
MU (2004-07-25 21:15) [1]

>> IF (Key =$11) and(key=$53) THEN
:))

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = $53) and (ssCtrl in Shift) then
...
end;

еще KeyPreview := true у формы;

← →
TopT (2004-07-26 00:51) [2]

2 MU
Не совсем верно, так как ты написал, будут срабатывать сочетания клавиш alt+ctrl+S и Shift+Ctrl+s ну и alt+ctrl+shift+s :)
Надо написать так
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key = $53) and ([ssCtrl]=Shift) then ...; end;

← →
MU (2004-07-26 07:10) [3]

>>TopT
Да-да!!!

клавиатура Найти похожие ветки