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;

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

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

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