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

Реакция на MenuItem.OnClick   Найти похожие ветки 

← →
GrayWolf   (2003-03-24 09:22) [0]

Суть такова: динамически создаю пункт меню в DLL для основного окна приложения, которое грузит эту библиотеку. Для него создаю подпункт и ставлю на событие OnClick некую реакцию. Прикол вот в чем: если я ставлю событие на первый пункт меню, то тогда все нормально, все работает. А вот если ставлю на второй, дочерний по отношению к первому, пункт меню, то ничерта не выходит. Причем, как выяснилось, это актуально для любых пунктов, созданых не первыми! Если кто подскажет в чем дело, буду очень признателен... Ну и собственно, код:

procedure Connect(MainApp: TApplication; MainMenu: TMainMenu);
begin
Application:=MainApp;
{создаем "родительский" пункт меню RootMenuItem}
...
{создаем "дочерний" пункт меню}
ChildMenuItem:=TMenuItem.Create(MainMenu);
ChildMenuItem.Caption:="Название";
with TMethod(LHandler) do
begin
Data:=nil;
Code:=@ShowMainForm;
end;
ChildMenuItem.OnClick:=LHandler;
RootMenuItem.Add(ChildMenuItem);
end;


---

← →
GrayWolf   (2003-03-25 15:42) [1]

Тяжелый, видно, вопрос... :(
Или просто сюда никто не заглядывал?

---

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

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



Память: 0.45 MB
Время: 0.011 c