Procedure CloseForm;
begin
  Close;
  ModalResult := mrYes; {or whatever}
end;
 
If you need a ModalResult, it needs to come after the Close statement.
 

Ross Levis
======================================
StationPlaylist.com
http://www.stationplaylist.com
Low-cost music scheduling, live assist & automation software for
radio broadcasting, internet streaming, & in-store music systems.
Discussion Group: http://groups.yahoo.com/group/StationPlaylist
======================================
----- Original Message -----
Sent: Thursday, February 26, 2004 3:11 PM
Subject: [DUG] Auto Killing a Modal Form

How do I Auto-Kill a Modal Form ?
 
I have a Form that I ShowModal
OnActivate or OnShow I do a load of processing (updating a ProgressBar).
Then I want the Form to automatically Close...
 
How do I get it to Close - I have tried setting ModalResult - but it seems to just get ignored.
If I set ModalResult in a Control the user activates  it works - but I need it to automatically Close.
 
 
Regards
Paul McKenzie
Analyst Programmer
SMSS Ltd.
 


_______________________________________________
Delphi mailing list
[EMAIL PROTECTED]
http://ns3.123.co.nz/mailman/listinfo/delphi
_______________________________________________
Delphi mailing list
[EMAIL PROTECTED]
http://ns3.123.co.nz/mailman/listinfo/delphi

Reply via email to