You'll need to manually assign event handlers to relevant events: GBx.OnMouseDown := MyMouseDownEventHandler;
rossiaurelio wrote: >Hi everyone, >How can i add a new TGroupBox to a form at runtime, inheriting events >from a customized base TGroupBox, and without any TGroupBox on the >form at design-time ? >I've tried something like : > > TGBx = class(TGroupBox) > procedure MouseDown(Sender: TObject; Button: TMouseButton; > Shift: TShiftState; X, Y: Integer); reintroduce; > end; >... >procedure TGBx.MouseDown(Sender: TObject; Button: TMouseButton; > Shift: TShiftState; X, Y: Integer); > >... and the code to instantiate the new GroupBox : > > GBx := TGBx.Create(Form1); > GBx.Caption := 'NEW GROUPBOX'; > >After that, i see a new groupBox on the form, with the name i've >assigned to it, but it not respond to any events ... > >Please help me, Thanks > > > > > >----------------------------------------------------- >Home page: http://groups.yahoo.com/group/delphi-en/ >To unsubscribe: [EMAIL PROTECTED] >Yahoo! Groups Links > > > > > > > > > > > ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/delphi-en/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
