Some of that code is what I had in mind. You are maxing the form to the size of the _SCREEN which would mean that I would have to have code in the Framework to control normal forms size from maxing over top the statusbar.

I was thinking more along the lines of a window working liked a docked toolbar at bottom of screen.

I was thinking of the Caption = '' myself. Don't know if that will filter in menu or just show an empty line. Have not had time to test this myself.

At the moment I have been working with some different ActiveX Status Bar control other than MS control to see if any of those will live in a CONTAINER object. None will that I have found so far. One ActiveX control that I liked shows up on screen even with the ToolBars VISIBLE prop set to .F. But the status bar docks to top of form ?

Thanks for the code. I appreciate the example of BINDEVENT().

Today I am going to still stick with the toolbar trying to cover over the mover handle somehow. If I can accomlish that then that is the way I am going to go and with another status bar control other than MS.



>Is this more what your looking for?
>RightClick in the screen to close the form.

oOleForm = createobject("frmStatus")
With oOleForm
   .Show(0)
   .AddObject("oStatusBar", "olecontrol", "MsComctlLib.SBarCtrl")
   .oStatusBar.Height = 25
   .oStatusBar.Visible = .T.
EndWith
&& I left the ".2" off the MsComctlLib.SbarCtrl to prevent
&& the requirement of a specific version installed on the machine

&& Unremark the following line to recieves an error doing the same
&& on the screen
*_Screen.AddObject("oStatusBar", "oleControl", "MsComctlLib.SBarCtrl")

Read Events

Define Class frmStatus as Form

Caption     = ""
ControlBox  = .F.
MinButton   = .F.
MaxButton   = .F.
Movable     = .F.
BorderStyle = 0
BackColor   = _Screen.BackColor

Procedure Init
   Bindevent(_Screen, "Resize", This, "Resize")
   Raiseevent(_Screen, "Resize")
EndProc

Procedure RightClick
   ThisForm.Release()
EndProc

Procedure Destroy
   Clear Events
EndProc

Procedure Resize
   This.Width  = _Screen.Width
   This.Height = _Screen.Height
EndProc

EndDef