TObj

← →
bartov (2002-11-06 17:12) [0]

Пишу компонент наследованный от TObj не могу вызвать свой собработчик.

function WndProcTray(Ctl: PControl; var Msg: TMsg; var Rslt: Integer): Boolean;
...
D := PBAPSysTray(Ctl);
if Assigned(D.OnBalloonShow) then D.OnBalloonShow(@D);
...

Как сделать чтоб заработало?

← →
Vox © (2002-11-06 20:22) [1]

Надо писать:
D := PBAPSysTray(Ctl.CustomData);

← →
bartov (2002-11-06 20:56) [2]

У меня на if Assigned(D.OnBalloonShow) выдается ошибка.
Кто-нибудь пришлите пожайлуста мне код или напишите в форуме чтоб заработало - любой пример от TObj.

← →
Gandalf (2002-11-06 21:45) [3]

> Кто-нибудь пришлите пожайлуста мне код или напишите в форуме
> чтоб заработало - любой пример от TObj.

Бери MHFontDialog, MHFindReplaceDialog, MHAboutDialog и т.п. c этого сайта. Или пиши на мыло, помогу.

> Надо писать:
> D := PBAPSysTray(Ctl.CustomData);

Не надо, поскольку наследуемся от TObj. Тем более, что PBAPSysTray - не тип данных, а тип компонента (судя по коду).

← →
Vox © (2002-11-06 22:47) [4]

Пардон, не заметил

← →
bartov (2002-11-06 23:14) [5]

@Gandalf
Отправил код. Ждемс резултатов...

← →
bartov (2002-11-07 12:16) [6]

2Gandalf
Пример не работает!

← →
bartov (2002-11-07 12:16) [7]

2Gandalf
Отаслал где имено.

← →
bartov (2002-11-07 18:44) [8]

Народ ну помогите.........

Давай мне свой код, посмотрю

Пока не до конца разобрался, но для начла нашёл, что в оконной процедуре WndProcTray в параметре Ctl передаётся указатель НЕ на твой экземпляр объекта BAPTrayIcon. Если сделать вот такую запись в теле этой процедуры:
PBAPSysTray(Ctl).OnBalloonShow( Ctl );
то программы вылетает с окошком CPU. Если спереди прибавить if Assigned(.. , то ошибка не вылетает, что собственно и ввело тебя в заблуждение ( if Assigned при этом в окошке Evaluate/Modify выдаёт True )

Сорри, я тут немного не того сказанул.
Всё заработало, смотри почту.

TObj Найти похожие ветки