Re: [DUG] OnExit

[Paul Mckenzie]

Yup - this what I have, but the OnExit event will just not fire... I am still debugging to try and figure out why...   Regards Paul McKenzie Analyst Programmer SMSS Ltd.   ----- Original Message ----- From: James Sugrue To: 'NZ Borland Developers Group - Delphi List' Sent: Thursday, March 18, 2004 2:47 PM Subject: RE: [DUG] OnExit type   TForm1 = class(TForm)              Button1: TButton;              procedure Button1Click(Sender: TObject);              procedure ExitProcedure( Sender : TObject );   private              { Private declarations }     public              { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var             mc : TMonthCalendar; begin             mc := TMonthCalendar.Create( Form1);               mc.Parent := Form1;             mc.Top := 10;             mc.Left := 10;             mc.OnExit := ExitProcedure;   end;   procedure TForm1.ExitProcedure(Sender: TObject); begin             ShowMessage( 'hi' ); end;     From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Paul Mckenzie Sent: Thursday, 18 March 2004 2:14 p.m. To: Delphi List - Delphi Subject: [DUG] OnExit   I have a MonthCalendar that I create dynamically and want to assign an OnExit event handler... Assigning and OnDblClick works fine. The problem is, OnExit is a protected property of TWinControl. How can I get code to fire On Exit ?   BTW: How does this work in the IDE for a design-time created control ?   Regards Paul McKenzie Analyst Programmer SMSS Ltd.   _______________________________________________ Delphi mailing list [EMAIL PROTECTED] http://ns3.123.co.nz/mailman/listinfo/delphi

_______________________________________________
Delphi mailing list
[EMAIL PROTECTED]
http://ns3.123.co.nz/mailman/listinfo/delphi