Hi Ali,

xx=createobject("_form")
xx.show()
READ EVENTS


define CLASS _form as form
   showwindow=2
   firstactivate=.T.
   oToolbar=.NULL.

   procedure activate
      IF this.firstactivate
         This.oToolbar=CREATEOBJECT("_toolbar")
         This.oToolbar.Visible=.T.
         This.oToolbar.Dock(0)
      ENDIF
   endproc


   procedure Destroy
      This.oToolbar=.NULL.
   endproc
enddefine


define CLASS _toolbar as toolbar
   showwindow=1
   Movable=.F.

   Add Object cmdEnd as CommandButton WITH ;
              Caption="Quit", Visible=.T.

   PROCEDURE cmdEnd.Click()
      CLEAR EVENTS
   ENDPROC

   PROCEDURE DblClick()
      NODEFAULT
   ENDPROC
ENDDEFINE

MartinJ

>Hi
>i have a problem with toolbar
>i make a formset class and put a toolbar and a form
>form showwindow property set showintoplevel form
>the problem is that when i use this class in a top level form
>oform=createobject(myclass)
>oform.show
>the toolbar does not work it's visible but the buttons doesn't work i can not click on them
>but when i use it in a window with showwindow property set showinscreen it works well.