Zitat von
Luckie:
So jetzt sollte es aber funktionieren. Ichhabe es noch mal neu kompiliert und getestet. Der Source ist jetzt auch wieder dabei. Aktuelle Version im ersten Posting.
Die Neuanlage tut es aber nicht ...
Delphi-Quellcode:
procedure TfrmAdressen.NewContact;
...
Details.ShowModal;
if Details.ModalResult = mrOk then // Du hast kein ModalResult mehr!!!
... aber bearbeiten geht ...
Delphi-Quellcode:
procedure TfrmAdressen.ShowContactDetails;
...
Details.ShowModal;
//if Details.ModalResult = mrOK then
if Details.Modified then // aha ... hier geändert
Wundert mich eh, dass du für die Übernahme der Daten aus dem Formular
a) dieses 2x programmiert hast (ist eine typische Fehlerquelle, wie man hier sieht)
b) diese Übergabe nicht im Form frmContacts machst
Ich hätte an das frmContacts einfach nur das Contact-Object übergeben und nachher zurückverlangt.
Dann bleibt der Code für das Anzeigen, bearbeiten und zurückschreiben auch dort wo es passiert, und im Hauptteil reagiere ich einfach nur noch auf das Flag Modified und New.
cu
Oliver