Skip to Content
0
Former Member
Aug 02, 2005 at 01:55 AM

Delphi 2005 vcl.net, addon close

12 Views

Hi Everybody,

I have tried to write an addon (delphi 2005: vcl.net) to capture the events, seems perfect. But fail to close/end the addon by capture the aet_ShutDown event. As the following code, when shutdown SBO, it can show "Close1" and "Close2", but can close the application. Although deleted showmessage of "Close2", still can't close.

procedure TForm1.SBOappAppEvent(EventType: BoAppEventTypes);

begin

if (EventType = BoAppEventTypes.aet_ShutDown) or (EventType = BoAppEventTypes.aet_ServerTerminition) then

begin

SBOapp.MessageBox('Close1', 1, '1', '2', '3');

Close;

SBOapp.MessageBox('Close2', 1, '1', '2', '3');

end;

end;

Welcome for any sample or hint. Thx.

Regards,

B