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
|
|