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;

> 2. Там создаешь пункт меню, а в его свойствах изменяешь
> ShortCut = Cut на ShortCut = Ctrl+Enter (пишется ручками).

Пардон, не ShortCut = Cut, а ShortCut = (None); (в Object Inspector"e)

2 Александр из Минска

Это ты что сейчас такое написал? Не спал, наверное, всю ночь...обдумывал "испытанный ламерский метод".

Это делается так: у формы создаешь событие OnKeyDown. Пишешь:

If (Shift=[ssCtrl]) and (Key=VK_RETURN)then { чего делать }

Неужели ТАК сложно почитать какую-нибудь умную книжку? Ну если не знаешь - вообще не пиши ничего.

OnKeyDown Найти похожие ветки