MessageDlg über den Default-Button automatisch schließen (MeinCustomDialog.Close; ?)

[Benedikt Magnus]

Wäre es nicht einfacher, an der Stelle, an der du den Dialog automatisch schließt, dieses festzuhalten (Booleanvariable) und dann beim Abrufen des Dialogergebnisses zu berücksichtigen?

[RandomDD]

Ich habe deine Frage nicht ganz verstanden.

[Benedikt Magnus]

Wenn ich das richtig sehe, klickst du jetzt den gewünschten Button des Dialogs über eine Message. Wäre es nicht eleganter, eine Variable á la "WurdeAutomatischGeschlossen" anzulegen, die nach dem Schließen zusammen mit dem Rückgabewert des Dialogs überprüft wird?

[RandomDD]

Wofür wäre diese Variable denn dann? Komme nicht ganz dahinter.

Den messageDlg muss ich leider über eine Message klicken, da er sonst nur geschlossen wird (Rückgabwert Cancel, 2), auch wenn der Button Cancel nicht existiert.

[bra]

Ich verstehe den Sinn nicht, einen MessageDlg anzuzeigen, der sich automatisch schließt - also nie angeklickt wird. Wäre es nicht sinnvoller, hier stattdessen ein Banner anzuzeigen?

Oder soll das eine Art Nagscreen sein, der nach x Sekunden zugeht, vom Benutzer aber auch schon vorher weggeklickt werden kann?

[Luckie]

Habe ich auch schon gesagt. Nur seine Antwort nicht ganz verstanden. In der Statusleiste einfach die letzte Benachrichtigung anzeigen. Fertig.

[Benedikt Magnus]

Zitat von RandomDD:

Wofür wäre diese Variable denn dann? Komme nicht ganz dahinter.

Den messageDlg muss ich leider über eine Message klicken, da er sonst nur geschlossen wird (Rückgabwert Cancel, 2), auch wenn der Button Cancel nicht existiert.

Du machst das nun so:

Delphi-Quellcode:

// Dialog erzeugen
MeinCustomMsgDialog := CreateMessageDialog(DlgText, mtInformation, [mbYes, mbNo], mbNo);
DialogDefaultButton := TButton(MeinCustomMsgDialog.ActiveControl); 

// Default Button anklicken
if DialogDefaultButton.Handle <> 0 then
 SendMessage(DialogDefaultButton.Handle, BM_CLICK, 0, 0)
else
 DialogDefaultButton.Close; 

//Auswertung von MeinCustomMsgDialog
case CreateMessageDialog.ShowModal of
  mbYes: MacheWasBeiJa;
  mbNo: MacheWasBeiNein;
end;

Ich meinte es so:

Delphi-Quellcode:

// Dialog erzeugen
MeinCustomMsgDialog := CreateMessageDialog(DlgText, mtInformation, [mbYes, mbNo], mbNo);

// Dialog schließen:
DialogWurdeAutomatischGeschlossen := true;
MeinCustomMsgDialog.Close; 

//Auswertung von MeinCustomMsgDialog
case CreateMessageDialog.ShowModal of
  mbYes: MacheWasBeiJa;
  mbNo: MacheWasBeiNein;
  else if DialogWurdeAutomatischGeschlossen then MacheWasBeiAutomatischemSchließen;
end;

EDIT:
Aber natürlich ist der Vorschlag der anderen, das anders zu realisieren, z.B. über ein Banner, immer noch sinnvoller.

[RandomDD]

Das mit dem Banner halte ich für nicht sinnvoll. Es ist auch kein Nagscreen oder ähnliches.
Es ist einfach eine Nachricht, die angezeigt und bestätigt werden muss. Wird sie nicht innerhalb des Timeouts bestätigt, gilt die Aktion als abgebrochen.

Verstehe nicht, was daran nicht zu verstehen ist.

[Luckie]

Und wenn ich da eben mal nicht am Rechner bin, wenn der MessageDlg aufpoppt, muss ich die Aktion von vorne starten? Ich muss also die ganze Zeit auf den Bildschirm starren?

Irgendwie ist das Konzept nicht ganz rund für meine Augen.