Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Вниз
Горячие клавиши Найти похожие ветки
← →
Гиричев Руслан © (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 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.035 c
