Mahlzeit,
ich habe ein Fenster welches sich bei klick auf das rote X (oben rechts) schliesst.
Jetzt habe ich noch eine Abfrage im FormClose platziert ob das Fenster wirklich geschlossen werden soll, denn wenn ja gehen alle bisher nicht gespeicherten Datensätze verloren.
So wenn man jetzt auf nein klickt soll das Fenster aber geöffnet bleiben, habe das über ein erneutes Form Show gemacht, das Problem welches ich jetzt habe ist das er das Fenster dann aber minimiert.
Wie kann ich denn den Close - Vorgang abbrechen das es so bleibt wie es ist und nicht verkleinert wird ?
Zum besseren vertändniss hier der Quellcode:
Delphi-Quellcode:
procedure Tfrmtaetigkeitenansicht.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if MessageDlg('Alle nicht gespeicherten Einträge gehen durch das Beenden verloren !'+#13+#10+'Dennoch das Fenster schleißen ?', mtWarning, [mbYes, mbNo], 0) = mryes then
begin
action := cafree;
frmtaetigkeitenansicht := nil;
DataModuleMain.ibtrtaetigkeiten.Rollback;
end
else
begin
frmtaetigkeitenansicht.Show;
end;
end;
Gruss
Darkchild
P.S: Habe auch versucht hinter dem Show mit frmtaetigkeitenansicht.windowstate := wsnormal zu arbeiten, aber das bringt nix.
Ich bin der Geist der stets verneint und das mit recht, denn alles was entsteht ist wert das es zugrunde geht, drum besser wär das nichts entstünde, so ist denn alles was ihr Sünde, Zerstörung, kurz das Böse nennt, mein eigendliches Element.