Subject |
Re: Modal Form |
From |
Michael <michael@itntgroup.com.au> |
Date |
Fri, 23 Feb 2018 05:59:40 -0500 |
Newsgroups |
dbase.getting-started |
Hi Don,
Dbase is a RAD environment. First create a form in dbase with the designer. Then use the code below to open the newly created form.
Openform()
function openform
Local v
set procedure to test.wfm ADDITIVE
create session
v = new testform()
v.mdi = .F.
v.open()
?"form now open"
wait ""
v.close()
close procedure test.wfm
return
Don Wrote:
>
> 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
|
|