how hide main window in foxpro for windows 1

[vfp5]

i need any examples, how make it. thanks

 

[ramani]

HI VFP5,
Again posting of a VFP question in FP2.6 forum !!!

Hope this helps
********************************************************
An example is provided here ........
* To hide the main VFP window the following will help
* MyForm.InitEvent
* _SCREEN.VISIBLE = .F.
* THIS.SHOW()
* READ EVENTS
* ** set in the forms property sheet...(not thru' code)
* .ShowWindow = 2
* .MDIform = .f.
* .ALwaysOnTop=.t.
* ** For All other forms called from this form,
* .ShowWindow = 1
**************************************************
** The above code is put in a sample form with a command button to exit
** If you copy this, put it in a test.prg and run that, you will see the result
** Hope this helps
**************************************************
PUBLIC oformbase1
oformbase1=NEWOBJECT("formbase1&quot
oformbase1.Show
RETURN

DEFINE CLASS formbase1 AS form
ShowWindow = 2
DoCreate = .T.
Caption = "Form"
MDIForm = .F.
AlwaysOnTop = .T.
Name = "Formbase1"

ADD OBJECT command1 AS commandbutton WITH ;
Top = 108, ;
Left = 60, ;
Height = 27, ;
Width = 84, ;
Caption = "Command1", ;
Name = "Command1"

PROCEDURE Init
_SCREEN.VISIBLE = .F.
THIS.SHOW()
READ EVENTS
** set in the forms property sheet...(not thru' code)
** .ShowWindow = 2
** .MDIform = .f.
** .ALwaysOnTop=.t.
** For All other forms called from this form,
** .ShowWindow = 1
ENDPROC

PROCEDURE Release
QUIT
ENDPROC

PROCEDURE command1.Click
=MESSAGEBOX("This form on desktop"+ ;
" without Main VFP Window",48,"You got it!&quot
ThisForm.Release()
ENDPROC

ENDDEFINE
*-- EndDefine: formbase1
**************************************************
Hope you get the point
ramani :-9
(Subramanian.G),FoxAcc, ramani_g@yahoo.com