>I create a child class from 'COMMANDBUTTON' and the events/methods do not work.
>
>the followinf code is save in a file call 'MYBUTTON.PRG'.
>
>I load it with a 'set procedure' call and then use a .addobject
>to use it.
>
>************
>DEFINE CLASS mybutton AS commandbutton
> PROCEDURE Init
> messagebox("Init")
> ENDPROC
>
> PROCEDURE Click
> messagebox("Click")
> thisform.release
> ENDPROC
>ENDDEFINE
>*************
>
>Is there any reason why it should allow the events to work?
Hi there,
I hope you are doing the following to add the object to the form.
Thisform.AddObject('cmdmybutton','mybutton')
WITH Thisform.cmdmybutton
.Left = ...
.Top = ...
.Visible = .T.
ENDWITH
Bye
Jayesh
- Jayesh