Скачать: 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 вся ветка

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



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