RE: [DUG] OnExit

[James Sugrue]

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