Abfrage vor Beenden des Programmes

[Stephan Jäger]

Hallo,<br>
<br>
kann mir vielleicht jemand helfen? Ich habe ein Programm mit der Form1<br>
als einzigem Formular. Wenn ich dieses Formular jetzt über den "x" <br>
schließe, soll eine Abfrage kommen, ob das Programm wirklich beendet <br>
werden soll. Wenn nicht, dann soll es nicht beendet werden.<br>
<br>
Wie macht man so etwas. Bei mir beendet er das Programm trotzdem.<br>
Der Code steht in TForm1.OnClose.<br>
<br>
Danke für Eure Hilfe.

[Thomas Melchert]

<p>Hallo,<br>
<br>
dazu musst das Ereignis <b>OnCloseQuery</b> nutzen.<br>
<pre>
procedure TForm1.Form1CloseQuery(Sender:TObject; var CanClose:Boolean);
begin
CanClose:=(MessageDlg('Programm wirklich beenden?', mtConfirmation, [mbYes, mbNo], 0)=mrYes);
end;
</pre>
Gruß Thomas</p&gt

[Stephan Jäger]

Besten Dank, hat funktioniert