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