Add visible=.T.
Every object added via code, is NOT visible by default.
>I have these classes in my project
>
>DEFINE CLASS NavButton as CommandButton
>Height = 25
>Width = 25
>TableAlias = ""
>
>PROCEDURE click
>if not EMPTY(this.TableAlias ) then
> SELECT(this.TableAlias )
>endif
>ENDPROC
>
>PROCEDURE RefreshForm
> _screen.Activate.refresh
>ENDPROC
>ENDdefine
>*-----------------------------------------------------
>DEFINE CLASS NavTop as NavButton
>caption = "|<"
>
>PROCEDURE click
> DODEFAULT()
> GO top
> this.refreshform
>endproc
>enddefine
>
>and I have a form with this cod in the Init event
>
>
>SET PROCEDURE TO "F:\VFP_pelemaakav\Programs\navclass.prg" additive
>MyVCr = CREATEOBJECT("NavTop")
>
>
>I don't see the CommandButton on the form what's wrong please let me know
>
>
>
>
>thanks