Текущий архив: 2003.12.23;
Скачать: CL | DM;
Вниз
OnKeyDown Найти похожие ветки
← →
webpauk (2003-12-11 19:40) [0]как перехватить нажатие Ctrl+Enter?
← →
webpauk (2003-12-11 20:08) [1]ну хоть кто?
← →
Александр из Минска © (2003-12-11 20:52) [2]А тебе даже если програ не активна?
← →
хз © (2003-12-11 20:58) [3]F1 + RTFM
> А тебе даже если програ не активна?
см. тему
← →
Александр из Минска © (2003-12-11 21:07) [4]Ну тогда есть очень испытаный ламерский метод:
1. создаешь MainMenu1
2. Там создаешь пункт меню, а в его свойствах изменяешь ShortCut = Cut на ShortCut = Ctrl+Enter (пишется ручками).
Таким макаром оно сработает когда ты тыкнешь Ctrl+Enter. Только еще визибл = Фолс сделай этому меню.
А обрабатывать так
procedure TForm1.N1Click(Sender: TObject);
begin
.....
end;
← →
Александр из Минска © (2003-12-11 21:11) [5]
> 2. Там создаешь пункт меню, а в его свойствах изменяешь
> ShortCut = Cut на ShortCut = Ctrl+Enter (пишется ручками).
Пардон, не ShortCut = Cut, а ShortCut = (None); (в Object Inspector"e)
← →
хз © (2003-12-11 22:09) [6]2 Александр из Минска
Это ты что сейчас такое написал? Не спал, наверное, всю ночь...обдумывал "испытанный ламерский метод".
Это делается так: у формы создаешь событие OnKeyDown. Пишешь:
If (Shift=[ssCtrl]) and (Key=VK_RETURN)then
{ чего делать }
Неужели ТАК сложно почитать какую-нибудь умную книжку? Ну если не знаешь - вообще не пиши ничего.
Страницы: 1 вся ветка
Текущий архив: 2003.12.23;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.018 c
