Текущий архив: 2004.08.08;
Скачать: CL | DM;
Вниз
клавиатура Найти похожие ветки
← →
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
Да-да!!!
Страницы: 1 вся ветка
Текущий архив: 2004.08.08;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.045 c
