Скачать: CL | DM;

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

← →
Гиричев Руслан ©   (2004-03-08 23:12) [0]

Уважаемые мастера, подскажите, если не трудно, как при нажатии Ctrl+ENTER, выполнялось действие?

---

← →
Gero ©   (2004-03-08 23:17) [1]

YourForm.KeyPreview := True;
...
procedure TYourForm.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if (Key = VK_ENTER) and (ssCtrl in Shift) then
   // Действие
end;

---

← →
Гиричев Руслан ©   (2004-03-08 23:34) [2]

Спасибо, сейчас проверю!

---

← →
Gero ©   (2004-03-08 23:44) [3]

> if (Key = VK_ENTER)

Блин, VK_RETURN, а не VK_ENTER. Все время норовлю написать именно ENTER

---

← →
Гиричев Руслан ©   (2004-03-08 23:45) [4]

Error: Undeclered Identifier: VK_ENTER
Извини, но в чём проблема?
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
YourForm.KeyPreview := True; в TMAIN.FormCreate?

---

← →
Гиричев Руслан ©   (2004-03-08 23:47) [5]

Почти в одно и то же время ^^^ :)

---

← →
Gero ©   (2004-03-08 23:48) [6]

> Гиричев Руслан ©   (08.03.04 23:45) [4]
> Извини, но в чём проблема?
[3]

> YourForm.KeyPreview := True; в TMAIN.FormCreate?

Можно и в Design-time

---

← →
Гиричев Руслан ©   (2004-03-08 23:49) [7]

А как с пробелом?
СПАСИБО!

---

← →
Gero ©   (2004-03-08 23:51) [8]

> А как с пробелом?

VK_SPACE

---

← →
Гиричев Руслан ©   (2004-03-08 23:52) [9]

БЛАГОДАРЮ!

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c