John, My bad!
Now, just out of curiosity, why test at all if you are setting it to mrOK? At 11:44 AM 9/3/2007, you wrote: >I am testing for it to be not equal to none - i.e. any value apart from 0. >I think as others have said it is due to calling it in the activate event. > >JohnB > >-----Original Message----- >From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf >Of Ralph D. Wilson II >Sent: 03 September 2007 03:24 >To: Borland's Delphi Discussion List >Subject: Re: Closing modal forms > >What you are doing wrong is setting the form to mrOK but testing for mrNone >in order to close the form. > >At 11:31 AM 9/2/2007, you wrote: > >procedure TfmCleanUpMain.btnOKClick(Sender: TObject); begin > > if fmprogress.showmodal <> mrNone then > > close; > >end; > >Ralph D. Wilson II >Systems Analyst > >Home: (210) 497-2643 >Cell: (210) 387-7744 >Fax: (210) 497-5726 > >[EMAIL PROTECTED] >[EMAIL PROTECTED] > > >_______________________________________________ >Delphi mailing list -> [email protected] >http://www.elists.org/mailman/listinfo/delphi > > >_______________________________________________ >Delphi mailing list -> [email protected] >http://www.elists.org/mailman/listinfo/delphi Ralph D. Wilson II Systems Analyst Home: (210) 497-2643 Cell: (210) 387-7744 Fax: (210) 497-5726 [EMAIL PROTECTED] [EMAIL PROTECTED] _______________________________________________ Delphi mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi
