Hallo Leute!
Hab folgenden Code:
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Gespeichert = 'Ja' then begin
Close;
end else begin
if (MessageDlg('Sie haben nicht gespeichern! Wollen Sie vor dem Beenden speichern?', mtWarning, [mbYes, mbNo], 0) = mrYes) then begin
bt_save.click;
close;
end;
if (MessageDlg('Sie haben nicht gespeichern! Wollen Sie vor dem Beenden speichern?', mtWarning, [mbYes, mbNo], 0) = mrNo) then begin
close;
end;
end;
end;
Immer wenn er aus geführt wird kommt ein Stack-Überlauf!
Worauf ist das zurückzuführen?
Danke im Voraus!
Liebe Grüße
Array
