Динамическое создание событий
От: GrayWolf Россия https://kini24.ru
Дата: 13.01.03 07:16
Оценка:
Есть библиотека dll, не содержащаю никаких классов — одни переменные и константы. По ходу выполнения одной из функций создается пункт меню основного приложения. Вопрос в том, как создать событие OnClick для этого пункта меню. Все коды, которые я просматривал делаются так: в проект включается какой-то класс, например, TForm1, и у него уже прописывается событие. Затем это событие назначается кому надо... ))
А мне не нужно создавать класс, я хочу написать, например, так:

library MyLib;

var MenuItem: TMenuItem;
    MainMenu: TMainMenu;

procedure Clicked;
begin
  SowMessage('Hello world!');
end;

begin
  MenuItem:=TMenuItem.Create(MainMenu);
  MenuItem.Caption:='File';
  MainMenu.Items.Add(MenuItem);
  MenuItem.OnClick:=Clicked;
end.

Или так нельзя и придется создавать класс пункта меню? Оченно не хотелось бы...
Помогите, буду очень признателен!

13.01.03 12:19: Перенесено из 'COM/DCOM/ActiveX'
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.