Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: M. Akram Bhatti
  Where is M. Akram Bhatti?
 Riyadh
 Saudi Arabia
 M. Akram Bhatti
 To: Ayaz Ahmad
  Where is Ayaz Ahmad?
 Peshawar
 Pakistan
 Ayaz Ahmad
 Tags
Subject: RE: do form
Thread ID: 248903 Message ID: 248921 # Views: 2 # Ratings: 0
Version: Visual FoxPro 9 Category: General VFP Topics
Date: Thursday, December 24, 2009 6:25:24 PM         
   


> hello.
> i want to run form only one time without windowstype = 1 or do form likend

Put this Function in a PRG which contains your Functions / Procedures.

FUNCTION isFormActive(tcForm AS Form) AS Boolean
LOCAL llReturn AS Boolean
m.llReturn = .f.
FOR EACH frm IN _screen.Forms
  IF LOWER(frm.name) == LOWER(tcForm)
    m.llReturn = .t.
    EXIT
  ENDIF
ENDFOR
RETURN m.llReturn

*-- To Call this procedure.

IF NOT isFormActive("frmInvoice")
  DO FORM frmInvoice
ENDIF


Regards,
Akram

ENTIRE THREAD

do form Posted by ayaz ahmad @ 12/24/2009 3:07:51 PM
RE: do form Posted by ho me @ 12/24/2009 3:41:23 PM
RE: do form Posted by ayaz ahmad @ 12/24/2009 5:21:51 PM
RE: do form Posted by ho me @ 12/24/2009 7:49:43 PM
RE: do form Posted by M. Akram Bhatti @ 12/24/2009 6:25:24 PM
RE: do form Posted by Mustapha Bihmouten @ 12/25/2009 12:22:56 PM