Текущий архив: 2003.04.07;
Скачать: 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 вся ветка
Текущий архив: 2003.04.07;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.02 c
