Hallo!
Ich habe folgende OnCloseQuery Prozedur geschrieben:
Delphi-Quellcode:
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if
MessageDlg('Das Programm wird nun beendet!' +#10#13 +'Einstellungen werden gespeichert.' +#10#13
+'Fortfahren?', mtInformation,
[mbYes, mbNo],0)=mrYes
then
begin
CanClose := true;
Close
end
else
CanClose := false;
end;
Nur leider funktioniert es nicht wie gewünscht. Klicke ich auf Yes dann beendet sich das Programm nicht, der Dialog bleibt auch da.
Klicke ich zunächst auf No verschwindet der Dialog wieder wie gewünscht und man kann weitermachen. Klicke ich aber einmal auf Yes und dann auf No beendet sich das Programm. Woran kann das liegen?
Thx for help!
MfG Florian
