MainMenu & PopupMenu

← →
Igor Kashtanov (2003-03-16 21:20) [0]

В форме присутствует MainMenu и PopupMenu.При нажатии на функциональную клавишу (f9) по задумке должно появится
Popup. Сей метод реализую при KeyPreview=true и, соответственно процедуре OnKeyDown. Однако ничего не происходит. Если убираю MainMenu - все нормально. По нажатию F9 поднимается PopUp.
Подскажите, ПЛЗ!

Заранее благодарю всех написавших !!!

← →
Романов Р.В. (2003-03-16 21:35) [1]

Код задумки покажи.

← →
sniknik (2003-03-16 22:08) [2]

у MainMenu есть ShortCut там функциональные клавиши устанавливаются и перехватываются, или сделай пустое менюитем (невидимое) с ShortCut = F9 и из него вызывай, либо у формы с установленым KeyPreview = true (чтобы она первая ловила).

← →
sniknik (2003-03-16 22:30) [3]

чегото тут не то. что с MainMenu что с без, функциональные клавиши на OnKeyDown ловятся. Единственное когда не ловит если ShortCut какого нибудь итема в меню уже установлена эта клавиша.

неважно, делай через ShortCut в самом меню, ловит всегда (даже куйпревью можно не включать).

← →
Igor Kashtanov (2003-03-16 22:45) [4]

Код задумки :)

При KeyPreview=true;

procedure TForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_f9 then popupmenu1.Popup(400,300);
end;

← →
Igor Kashtanov (2003-03-16 22:50) [5]

ВОТ ЭТО Я ТАК ЗАТУПИЛ :((((((((((((( ПО ПОЛНОЙ ПРОГРАММЕ...

ВСЕ РАБОТАЕТ... ПРОСТО ЭТА КЛАВИША УЖЕ БЫЛА ПРИСВОЕНА таки да....млин..

ВСЕ ОГРОМНОЕ СПАСИБО...

MainMenu & PopupMenu Найти похожие ветки