Hello all,
Is it possible to hide hidden windows in the System _MSM_WINDO menu?
I wrote this code attempting to find a way. The only thing I was able to do is prevent the window from popping up when it is selected in the menu. The button on the visible menu enables the form before showing it.
Thanks for looking, Tracy
LOCAL loTestForm loTestForm = CREATEOBJECT("TestFormClass") loTestForm.RunTest()
loTestForm = .NULL. CLEAR CLASS "TestFormClass" CLEAR CLASS "HiddenFormClass"
DEFINE CLASS TestFormClass as Form Height = 200 Width = 400 AllowOutput = .F. Caption = "Visible form"
oHidden = null
ADD OBJECT lblInfo as Label WITH caption = "A hidden window was also opened.", left = 12, top = 12, autosize = .T. ADD OBJECT cmdShowHidden as CommandButton WITH Caption = "Show Hidden", left = 12, top = 40, autosize = .T.
PROCEDURE cmdShowHidden.Click IF TYPE("ThisForm.oHidden.Name") = "C" ThisForm.oHidden.Enabled = .T. ThisForm.oHidden.Show() ENDIF ENDPROC
PROCEDURE queryunload CLEAR EVENTS ENDPROC
PROCEDURE RunTest this.oHidden = CREATEOBJECT("HiddenFormClass") this.Show() READ EVENTS ENDPROC
ENDDEFINE
DEFINE CLASS HiddenFormClass as Form height = 200 width = 400 allowoutput = .F. autocenter = .T. caption = "Hidden form" ShowInTaskBar = .F. Enabled = .F. Visible = .F.
ADD OBJECT lblInfo as label WITH caption = "This was a hidden window", left = 12, right = 12, autosize = .T.
ENDDEFINE