Hallo,
sicherlich mal wieder eine überflüssige Frage, aber ich komme damit einfach nicht weiter und konnte bislang auch noch nichts dazu finden:
Ich möchte beim Programmende die Variable CoreStatus abfragen, die vorher mit einem Status belegt wurde. Ist diese Variable leer, soll das Programm beenden, ansonsten soll ein Dialog angezeigt werden, der darauf hinweist, dass Daten noch nicht gespeichert wurden.
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var ButtonSelected: Integer;
begin
if CoreStatus <> '' then
begin
ButtonSelected := MessageDlg('Data not saved. Really quit?',mtConfirmation, mbOKCancel, 0);
if ButtonSelected = mrCancel then PageControl1.ActivePage := Z_DataEntry;
end;
end;
Ich würde es verstehen, aber Delphi anscheinend nicht
Kann mir jemand einen Tipp geben, wo der Denkfehler liegt?
Danke
Opa