Have you tried setting modalResult?<div><br></div><div>The usual way of closing a modal dialog is:</div><div><br></div><div>modalResult := mrOK;</div><div><br></div><div>somewhere in an event handler.</div><div><br></div><div>
This is checked (from long ago memory) after most event handlers. The exception (I think, from the same vague memories) is the FormShow event itself.</div><div><br></div><div>Cheers,</div><div>Alistair.<br><br><div class="gmail_quote">
On 7 May 2011 21:46, John Bird <span dir="ltr">&lt;<a href="mailto:johnkbird@paradise.net.nz">johnkbird@paradise.net.nz</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

<div dir="ltr">
<div dir="ltr">
<div style="font-family:&#39;Arial&#39;;color:#000000;font-size:10pt">
<div>I have a modal form that gets called to do some processing (involving 
Indy), and when it has finished if all is OK I am trying to get the end code 
after the Indy stuff to show status (which it does) and close the form (which it 
doesn’t).</div>
<div> </div>
<div>The statement form2.close is being executed but is not closing the 
form.</div>
<div>What can stop a modal form being closed,  or any ideas what I need to 
do to get it to close by itself when its finished?</div>
<div> </div>
<div>(The form is opened by form2.ShowModal</div>
<div>and the code is in a procedure executed from the OnActivate event  - 
the Show event also doesn’t work)</div>
<div> </div><font color="#888888">
<div style="font-family:&#39;Arial&#39;;color:#000000;font-size:10pt">John</div></font></div></div></div>
<br>_______________________________________________<br>
NZ Borland Developers Group - Delphi mailing list<br>
Post: <a href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</a><br>
Admin: <a href="http://delphi.org.nz/mailman/listinfo/delphi" target="_blank">http://delphi.org.nz/mailman/listinfo/delphi</a><br>
Unsubscribe: send an email to <a href="mailto:delphi-request@delphi.org.nz">delphi-request@delphi.org.nz</a> with Subject: unsubscribe<br></blockquote></div><br></div>