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

TMainMenu и клавиша F10   Найти похожие ветки 

← →
NewDelpher   (2004-09-06 13:49) [0]

У меня на форме лежит компонент TMainMenu, при нажатии клавиш ALT или F10 он активизируется. Как сделать чтобы этого не происходило при нажатии F10?

---

← →
Семен Сорокин ©   (2004-09-06 13:52) [1]

Form.KeyPreview = true
Form.OnKeyDown
if Key = VK_F10 then
 Key := 0;

:))

---

← →
NewDelpher   (2004-09-06 13:55) [2]

Семен Сорокин ©
Всё равно активизирует

---

← →
NewDelpher   (2004-09-06 14:04) [3]

Правда у меня FormStyle = fsMDIForm, может поэтому не работает предложенный способ?

---

← →
Юрий Зотов ©   (2004-09-06 14:21) [4]

Попробуйте обрабатывать WM_SYSKEYDOWN:

procedure TForm1.WMSysKeyDown(var Message: TWMSysKeyDown);
begin
 if Message.CharCode = VK_F10 then
   Message.Result := 0
 else
   inherited
end;

---

← →
NewDelpher   (2004-09-06 14:47) [5]

> Юрий Зотов ©   (06.09.04 14:21) [4]
> Попробуйте обрабатывать WM_SYSKEYDOWN:
>
> procedure TForm1.WMSysKeyDown(var Message: TWMSysKeyDown);
> begin
>  if Message.CharCode = VK_F10 then
>    Message.Result := 0
>  else
>    inherited
> end;

к сожалению, эффект тот же :(

---

← →
Семен Сорокин ©   (2004-09-06 15:25) [6]

NewDelpher   (06.09.04 14:47) [5]
перекрой во всех MDIChild"ах, или сделай наследника, у меня [1] отлично работает для SDI-интерфейса

---

Страницы: 1 вся ветка

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



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