Есть библиотека 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'