also das ganze wurde jetzt etwas umstrukturiert also im programmbeendenclick1 steht jetzt
Delphi-Quellcode:
procedure Tmain.ProgrammBeenden1Click(Sender: TObject);
begin
close;
end;
und in on close steht
Delphi-Quellcode:
procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if not (gespeichert) then
begin
if (MessageDlg('Wollen Sie das Programm beenden ohne zu speichern!?'
,mtWarning, [mbYes, mbNo], 0, mbYes) = mrYes) then
//gespeichert := true;
self.close;
end;
if (Gespeichert) then
begin
self.close;
end;
end;
und er bleibt am oben markiertem trotzdem hängen