Hallo zusammen,
ich habe momentan das Problem das ich mit einer Boolschen Variable überprüfe ob in feldern etwas verändert wurde (gespeichert), und dann mit einem msg Dialog abgefragt wird ob man ohne speichern beenden will, leider schiebt er mich dann in eine Endlosschleife, wenn ich auf "Ja" klicke und erst, wenn ich auf "Nein" klicke, nachdem ich mindestens einmal auf "Ja" geklickt habe, schließt er das Programm.
Ich bin langsam am verzweifeln da ich nicht herrausfinden kann woran es liegt.
Hier einmal der entsprechende Code
Delphi-Quellcode:
procedure Tmain.ProgrammBeenden1Click(Sender: TObject);
begin
if not (gespeichert) then
begin
if (MessageDlg('Wollen Sie das Programm beenden ohne zu speichern!?'
,mtWarning, mbYesNo, 0) = mrYes) then
begin
//gespeichert := true;
main.close;
end;
end else
begin
main.close;
end;
end;
schon einmal vielen Dank für eure hilfe.
Mit freundlichen Grüßen
Manuel