Горячие клавиши

← →
Гиричев Руслан © (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

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

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

VK_SPACE

БЛАГОДАРЮ!

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