Subject Modal Form
From Don <dons@home.com>
Date Thu, 22 Feb 2018 14:30:13 -0500
Newsgroups dbase.getting-started


Hi All,

I haven't done any coding in a while, but recently I started a project
for myself. I plan to use a couple modal forms so I started to code them.

I cant get one to pop up on my screen. I am using the standard boot
strap code I find every where, but no luck, and I have twisted and
turned it for a couple days.

Can someone find my error here.

Don
=========================================Code Below For a Modal Form?
clear

Openform(True)

Function openform
parameter bModal
*Private F
local f

f = new Form()
F.windowstate = 0

F.Height = 100
F.Width = 50

if (bModal)
f.mdi = .f. // ensure not MDI
f.ReadModal()
*F.Setfocus()

? "Opened With ReadModal "

else
? "Opened With Open() "
f.open( )
endif

? "Type "
?? Type("F")
Return