Форум: "Основная";
Текущий архив: 2004.08.08;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.047 c