I just re read your original post
If I create a form which is set as a "Top-Level" with Desktop=.T. and add
Did you try desktop = .f. ?
That is what I use.
Rafael
----- Original Message -----
From: "Dave Crozier" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, June 27, 2006 11:22 AM
Subject: RE: Docking Toolbar in Top-Level Form
Rafael,
I still have the same problem - The sample below just docks the toolbar on
the main VFP window
**************
* Test Program for toolbars
*
oForm=CreateObject("clsForm")
With oForm
.Width=200
.Height=200
.AutoCenter=.T.
*
.Visible=.T.
*
Endwith
*
Read events
Define Class clsForm as Form
ShowWindow=2 && Top Level
Function Activate()
* See if the toolbar exists
* ...So I can rename init() as Activare for testing
*
If type("This.barToolbar")<>"O"
This.AddProperty("barToolbar2")
This.barToolbar2=CreateObject("Toolbar")
With This.barToolbar2 as toolbar
.AddObject("btnButton1","CommandButton")
.btnButton1.Visible=.T.
*
.Dock(0)
.Show()
Endwith
Endif
*
Endfunc
Function Unload()
Clear Events
Endfunc
*
*
Enddefine
*
* End of Code
***********
Dave Crozier
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
