Danke Astat!
Entsprechend Deiner Anregung habe ich es jetzt so gemacht:
Delphi-Quellcode:
Var
CloseDialog : Boolean = False;
...
Procedure TChat.FormCloseQuery(Sender: TObject; Var CanClose: Boolean);
begin
CanClose:=False;
If Not CloseDialog Then
Begin
CloseDialog:=True;
If MessageBox(0, 'Wollen Sie das Programm wirklich beenden?',
'Bestätigen', mb_YESNO Or mb_IconQuestion) = idYES Then
CanClose:=True;
CloseDialog:=False;
End;
End;
Ich dachte, es müsste auch ohne zusätzliche Variable eleganter zu lösen sein.
Gruß, Alex