Hi,
das Thema ist immer noch nicht beendet !
Code:
procedure TKuStamm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
IF NOT KuModul.KuDatenSatz.IsEmpty THEN BEGIN
if MessageDlg('Soll der Datensatz gespeichert werden ?',
mtInformation, [mbYes, mbNo], 0) = mrYes then begin
KuModul.KuDatenSatz.post;
KuModul.TransAction.Commit;
END
END;
KuModul.Database.close;
end;
Drücke ich auf der Form esc, so kommt obige Abfrage zwar, aber er springt in das letzte "betretene" Feld zurück, anstatt die Form zu schließen. Lasse ich MessageDlg (sonst nichts) weg, klappt es wunderbar. Was kann das denn jetzt noch sein ?
Gruß
Hansa