MessageDLg beantwortet sich selbst?

[Aviator]

Wie wird denn das Schließen der Form initiiert? Über einen anderen Button oder über das Schließen X?

Wenn über einen anderen Button, dann wird der Fehler sicherlich dort irgendwo liegen. Weil ein MessageDlg wird nicht 2x angezeigt. Hast du evtl. bei dem zweiten Button (oder irgendwo anders) schon einen ModalResult Wert vergeben der das Schließen der Form auslöst?

Zudem halte ich es für keine gute Idee, einen Event-Handler eines Buttons manuell aufzurufen. Lagere deine Speichern Funktion in eine gesonderte Procedure aus und rufe diese auf. Siehe Beispiel:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
  if Editor.Modified then
    case MessageDlg('Text im Editor wurde bearbeitet. Soll vor dem Beenden dieser Text gespeichert werden?', mtConfirmation, [mbYes, mbNo, mbCancel], 0) of
     idYes:
     begin
       SaveChanges();
       CanClose := True;
     end;
     
     idNo: CanClose := True;
     
     idCancel: CanClose := False;
    end
  else
    CanClose := True;
end;

procedure TForm1.btn_saveClick(Sender: TObject);
begin
  SaveChanges();
end;


procedure TForm1.SaveChanges();
begin
  Memo1.Lines.SaveToFile();  // Oder welche Komponente auch immer bzw. wie auch immer der Speichervorgang ablaufen soll
end;

[Glados]

Zitat:

Muss das nicht mrYes statt idYes heißen? Natürlich die anderen beiden Resultate respektive.

Beides ergibt am Ende dasselbe: 6.

[hsg]

Zitat von Aviator:

Zudem halte ich es für keine gute Idee, einen Event-Handler eines Buttons manuell aufzurufen. Lagere deine Speichern Funktion in eine gesonderte Procedure aus und rufe diese auf. Siehe Beispiel:

Warum? Ich muss gestehen, dass ich tatsächlich die Event-Handler direkt aufrufe. Brauche ich die Information, ob der Benutzer den Button betätigt hat, dann kann ich das Argument Sender prüfen. Ist es nil, dann kam der Aufruf direkt aus dem Source.

[Glados]

An btn_saveClick wird es meiner Meinung nach nicht liegen.
Irgendetwas passiert vorher schon. Daher ja die Frage, welche anderen Events du noch benutzt.

[Aviator]

Zitat von hsg:

Zitat von Aviator:

Zudem halte ich es für keine gute Idee, einen Event-Handler eines Buttons manuell aufzurufen. Lagere deine Speichern Funktion in eine gesonderte Procedure aus und rufe diese auf. Siehe Beispiel:

Warum? Ich muss gestehen, dass ich tatsächlich die Event-Handler direkt aufrufe. Brauche ich die Information, ob der Benutzer den Button betätigt hat, dann kann ich das Argument Sender prüfen. Ist es nil, dann kam der Aufruf direkt aus dem Source.

Du musst nicht. Es geht auch so. Aber es ist meiner Meinung nach nicht besonders schön gelöst. Der Event-Handler ruft die Methode auf, die nur zum Speichern gedacht ist. Eventuell werden beim Button Click vorher noch Prüfungen durchgeführt die in einem anderen Fall nicht durchgeführt werden müssen. Und schon hast du den Salat. Deshalb macht man ja kleine und kompakte Funktionen die dann leichter erweiterbar sind und nicht überall direkt voll reingrätschen. Aber jedem das Seine. Ich mache es so wie ich es im Beispiel gezeigt habe und so machen es auch sehr viele andere Leute. Aber es bleibt dir überlassen wie du programmieren willst.

Aber nichts desto trotz. An dem Event-Handler liegt es sicherlich nicht. Das habe ich auch so nie gesagt. Ich habe eher das Stichwort ModalResult im Kopf. Aber auch hier bringt es nichts, dadrüber zu philosophieren. Der TE sollte sich da mal konkret du den Vorschlägen äußern und ggf. mehr SourceCode posten.

[Uwe Raabe]

Zitat von hsg:

Ich muss gestehen, dass ich tatsächlich die Event-Handler direkt aufrufe. Brauche ich die Information, ob der Benutzer den Button betätigt hat, dann kann ich das Argument Sender prüfen. Ist es nil, dann kam der Aufruf direkt aus dem Source.

Wenn du Zeit und Lust hast, dann lies mal diesen Artikel zu dem Thema: When, What, Why!

[Redeemer]

Es ist schon nicht so einfach, mit Delphi-Mitteln einen modalen Dialog zu schließen. Als ich das mal machen musste, um einen Öffnen-Dialog beim Auswählen eines bestimmten Dateityps in den Ordner zu schicken, in dem sich diese Dateien ausschließlich befinden konnten, habe ich ein Alt+F4 oder Esc per Tastendruck an den Dialog geschickt.
Ich würde auf ein anderes Programm tippen oder einen kurzzeitigen Bug im Tastaturtreiber tippen.

Letztendlich enthält dieser Thread ab mikhals Post nur Offtopic. Man könnte z.B. auch noch die völlig sinnlose erste Zeile im Quelltext diskutieren.

[hsg]

Danke für die Erklärungen.
Ich muss gestehen, dass ich mir nie Gedanken über die Trennung "When, What, Why" gemacht habe. Größere Operationen teile ich instinktiv schon auf, weil ich kleine Source-Abschnitte bevorzuge. Die Schaltflächen haben naturgemäß Namen, die ausdrücken, was sie tun sollen (z.B. btnSave), sodass der Name der Eventroutine eigentlich das When- und What beinhaltet. Aber es wäre natürlich besser, das When- und What klarer zu trennen.
Ich werde in Zukunft versuchen, es besser zu machen.

[SearchBot]

Hallo,

also schließen tue ich über den X-Button vom Form.
Das funktioniert auch immer - außer wie beschrieben, wenn ich den Dialog einmalig gecancelt habe (weil das schließlich auch die einzige Antwort ist, die das Programm offen hält).

Komischerweise kann ich es heute nicht mehr reproduzieren - hat sich also von selbst gelöst
Ich wüßte nicht, wo ich das Verhalten des Dialogs beeinflussen könnte, um dieses Verhalten zu erzeugen.
Es ist weg, falls es wieder passiert melde ich mich wieder.

Zu den anderen erwähnten Dingen:
ich gehöre zu den Pfuschern und rufe überall im Programm Click-Ereignisse auch aus dem Code auf und unterscheide das dann mit dem Sender=nil oder ähnlich, das ist praktisch und "zerkrümelt" den Code nicht so. Ich hatte damit bisher keine Probleme, weshalb es mir auch nicht aufgefallen ist, das es blöd sein könnte. Oder ich tat mich schwer, wusste aber nicht warum

Aber Uwes Artikel hat mich nachdenklich gemacht (man könnte auch ins andere Extrem schwenken und für jedes Objekt auch eine eigene Unit machen wenn man schon die Funktionen aus den Events auslagert ) - immerhin hat mein Post dann doch was Gutes gehabt.

[Glados]

Zitat:

und für jedes Objekt auch eine eigene Unit machen

Vielleicht nicht für jedes Objekt. Aber du könntest Units erstellen mit Utils oder anderem thematisch identischen Code drin. Habe ich vor Kurzem auch begonnen.
Eine saumäßige Arbeit, wenn man das vorher nicht hatte Ein Pfuscher, der Events direkt aufruft, bin ich aber trotzdem noch.