Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Написание собственных обработчиков событий .... Плиэ... [D5, D6, Win95/98, WinME, NT4, Win2k, WinXP]

users © (2002-09-20 02:08:00)
Никак нимогу докумекать, Помогите !!! кто может :)

Надобно написать свой обработчик событий в своём компоненте...

Есть функция которая должна передавать во внешний мир Строку (типа String)... и вот тогда надобно подцепить свой обработчик... Блин никак не докумекаю как это сделать... Можно примерчик ( очень !!! желательно !!! рабочий !!!!), только плиз ненадо топа это легко эта вставляешь туда это суда и все...

xmag (2002-09-21 00:10:00) [1]
>Старый Паскалист

Хм - :) мда совсем оплохел :( мог бы и сам догадаться :)))))
...Наверное простуда влияет... СпАсИбО !!!

Старый паскалист (2002-09-20 22:31:00) [2]
Вынеси его в published:

publi shed
property OnGetString: TOnGetString read FOnGetString write FOnGetString;

xmag (2002-09-20 21:02:00) [3]
>Старый Паскалист

... Все скомпилировалось, а обработчика нет :(

xmag (2002-09-20 16:16:00) [4]
>MBo :)
Внешняя программа передаёт параметр компоненту...
Компонент допустим обрабатывает строку и потом передаёт результат (или несколько) в СВОЙ обработчик событий :)

>Старый Паскалист
Сеньксь ... попробую это близко к оригиналу :)))

Старый Паскалист (2002-09-20 15:18:00) [5]
Так, что ли?

TOnGetString = procedure(Sender: TObject; var Str: string) of object;

TYOURComponent = class(...)
private
FOnGetString: TOnGetString;
public
function GetStringToTheWorld: string;
property OnGetString: TOnGetString read FOnGetString write FOnGetString;
end;

function TYOURComponent.GetStringToTheWorld: string;
begin
Result := чему-то там;
if Assigned(FOnGetString) then FOnGetString(Self, Result);
end;

MBo (2002-09-20 15:07:00) [6]
Я вот не докумекал, какой у тебя случай
>Есть функция которая должна передавать во внешний мир Строку
что это значит

users (2002-09-20 14:54:00) [7]
Сори за мою тупость :(
Но как этот пример можно применить к моему случаю ? :((((((

P.S. Я конечно понимаю там все написано... но ....

MBo (2002-09-20 02:14:00) [8]
http://www.swissdelphicenter.ch/en/showcode.php?id=1068

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »