Fenster verschwindet

[Hansa]

Hi,

indem ich es einfach genau umgekehrt mache ! Da bin ich sogar selber drauf gekommen.

Code:

procedure TLiefStamm.FormClose(Sender: TObject; var Action: TCloseAction);
  BEGIN
    Button2Click (Sender);
  END;

procedure TLiefStamm.Button2Click(Sender: TObject);
begin
  IF NOT LiefModul.LiefDS.IsEmpty THEN BEGIN
    if MessageDlg('Soll der Datensatz gespeichert werden ?',
      mtInformation, [mbYes, mbNo], 0) = mrYes then begin
      LiefModul.LiefDS.post;
      LiefModul.TransAction.Commit;
    END
    ELSE
      LiefModul.Transaction.Rollback;
  END;
  LiefStamm.FormShow (Sender);
end;

Diese Baustelle ist nahezu abgeschlossen. Also nochmals danke für die Hilfe. Alleine wäre ich noch lange nicht fertig. Ich mußte das hier einmal durchexerzieren, damit ich eine Vorlage für ähnliche Fälle habe.

Gruß
Hansa