Как программно связать событие?

[Utkin]

Пишу свой компонент, но не могу найти внятной инфы по созданию своих собственных событий в компоненте. В общем имеется некий компонент в котором мне необходимо протестировать свое собственное событие, вот его описание:

type

    TNotifyEvent2 = function(Sender: TObject; Stroka: String): Boolean of object;

Обратите внимание - в моем случае событие есть функция. Теперь мне нужно прицепить на это событие свою функцию, но чтобы обязательно в режиме выполнения .

[Stilet]

Теперь мне нужно прицепить на это событие свою функцию

Рекомендуется так:
В твоем компоненте ты пишешь:

Published
 MyFunca:TNotifyEvent2;

Теперь когда компонент скомпилирован, эта переменка появится в Инспекторе обьектов в события.

А программно:

type
 tform1=class(tform);
  function Func2(Sender: TObject; Stroka: String): Boolean;
 ....
  
 end;
...
 function tform1.Func2(Sender: TObject; Stroka: String): Boolean;
 begin
   Бла бла
 end;
...

var f:Тот_самый_компонент;
...
begin
 ...
 f.MyFunca:=Func2;
end;
...

Только учти Func2 должна быть полюбому обьявленна в каком нибудь классе потому что ты четко указал - of object;
Это важно.

[Utkin]

Я подсмотрел как это в TCustomMemo - через свойства:

published
property OnParsing: TNotifyEvent2 read FOnParsing write FOnParsing;

Так пойдет?

of object;
Это важно.

Так объявлены события в юните Classes.

[Stilet]

Так пойдет?

Конечно подойдет, просто я всего этого не пишу. Написал property OnParsing: TNotifyEvent2, стал на него курсором нажал CTRL+SHIFT+S (Или CTRL+SHIFT+С, уже и не помню ) и Делфи сама дописла за меня все что я не досказал ей - Рекомендую, будет меньше ошибок в коде.

Так объявлены события в юните Classes.

Логично. Рассчет ведь одет на то что обработчики их являются методами класса будь то форма или еще что-то.

Заметь ведь обработчики события формы обьявляются именно внутри класса. Вот и используй эту хорошую традицию.