Текущий архив: 2004.01.09;
Скачать: CL | DM;

Вниз

Горячие клавиши   Найти похожие ветки 

← →
АМБ   (2003-12-25 13:20) [0]

Как в процедуре KeyDoun или KeyPress отработать нажатие клавиши Ctrl+S и Ctrl+Z?

---

← →
Вованчик ©   (2003-12-25 13:25) [1]

if (ssCtrl in Shift) and (Key = 83) then
ShowMessage("ctrl+s");
if (ssCtrl in Shift) and (Key = 90) then
ShowMessage("ctrl+z");

---

← →
Вованчик ©   (2003-12-25 13:26) [2]

для KeyDown

---

← →
mfender ©   (2003-12-25 13:30) [3]

Дополнение к Вованчик © (25.12.03 13:25) [1] . Чтобы с регистром проблем не было, можно так:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Chr(Key) in ["S","s"]) and (ssCtrl in Shift) then
ShowMessage("Ctrl+S");
end;

---

Страницы: 1 вся ветка

Текущий архив: 2004.01.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.037 c