Index des TMsgDlgButtons ermitteln

[norwegen60]

Hallo

ich habe über

Delphi-Quellcode:

function MyMessageDlg(sMsg: String; aDlgTypt: TMsgDlgType; aButtons: TMsgDlgButtons; sArrCaption: array of String; sDlgCaption: String): Integer;
// *****************************************************************************************************************************************
// Eigene MessageBox mit selbst definierbaren Buttons anzeigen
var
  aMsgdlg: TForm;
  i: Integer;
  btButton: TButton;
  iCaptionIndex: Integer;
  sButton: String;

begin
  aMsgdlg := CreateMessageDialog(sMsg, aDlgTypt, aButtons);
  aMsgdlg.Caption := sDlgCaption;
  aMsgdlg.BiDiMode := bdRightToLeft;
  iCaptionIndex := 0;

  for i := 0 to aMsgdlg.ComponentCount - 1 Do
  begin
    if (aMsgdlg.components[i] is TButton) then
    begin
      btButton := TButton(aMsgdlg.components[i]);
      if (iCaptionIndex <= High(sArrCaption)) and (sArrCaption[iCaptionIndex] <> '') then
        btButton.Caption := sArrCaption[iCaptionIndex];
      inc(iCaptionIndex);
    end;
  end;

  Result := aMsgdlg.Showmodal;

  sButton := sArrCaption[Index of clickt Button]
end;

eine MessageDialog, bei dem ich die Texte der Buttons definieren kann.

Jetzt könnte ich natürlich über ein Loop ermitteln welchen Index der letztlich angeklickte Button in TMsgDlgButtons hat.

Gibt es eine einfachere Möglichkeit den Index zu bekommen?

Ziel ist es den gewählten Text des Buttons zu ermitteln.

Beispiel
lDialogResult := MyMessageDlg('Test der eigenen Button.', mtConfirmation, [mbYes, mbNo, mbOk, mbCancel], ['ButtonYes', 'ButtonNo', 'ButtonOK'], 'Dialog Test');

sButton soll beim Klick auf [ButtonYes] => Result = mrYes = 6 => sButton = 'ButtonYes' liefern

In aButtons liegen [mbYes, mbNo, mbOk, mbCancel] => richtiger Index für Klick auf [mbYes] wäre 0

[TurboMagic]

1. Du könntest dem .Tag des Buttons einen eindeutigen Wert zuweisen und falls du ein OnClick Ereignis für
den Button hast dieses dort abfragen.

2. Was generelles zu deiner Function: warum nutzt du für den Kopf Kommentar nicht XMLDOC?
Dann könntest du dir diesen Kommentar an jeder beliebigen Aufrufstelle beim Drüberfahren mit
der Maus über den Aufruf anzeigen lassen.

Hier ein Beispiel, die einzelnen "Templates" kann man mittels Strg-J einfügen (Strg-J drücken, dann den ersten Buchstaben des gewünschten Templates)

Delphi-Quellcode:

/// <summary>
///   Eigene MessageBox mit selbst definierbaren Buttons anzeigen
/// </summary>
/// <param name="sMsg">
///   Anzuzeigende Nachricht
/// </param>
// für alle anderen Params auch jeweils <param name="...
function MyMessageDlg(sMsg: String; aDlgTypt: TMsgDlgType; aButtons: TMsgDlgButtons; sArrCaption: array of String; sDlgCaption: String): Integer;
// *****************************************************************************************************************************************

3. Bei Funktions/Methodendefinitionen mit String Parametern solltest du vor jeden String Parameter const schreiben.
Das macht den Aufruf ein wenig performanter. Geht natürlich nur für parameter die innerhalb der Funtkion/Methode
nicht verändert werden.

Grüße
TurboMagic

[norwegen60]

Danke für die Tips.

Wie das mit dem Tag funtionieren sollte ist mir nicht ganz klar. Beim Klick auf [ButtonYes] liefert aMsgdlg.Showmodal ja das Ergebnis mrYes = 6. Wie soll ich mit diesem Result auf den Tag des Buttons kommen. Wenn ich den Button hätte, könnte ich ja auch gleich auf Button.Caption zugreifen.

Ich hatte gehofft es gibt so was wie Index := aButtons.IndexOf(Result) um den Index zu ermitteln.

Dass Const den Aufruf beschleunigt ist mir neu. Spielt hier keine wesentlich Rolle, aber ich denke ich habe andere Aufrufe wo das helfen könnte.

Grüße
Gerd

[himitsu]

Ist es so umständlich einfach TTaskDialog zu benutzen?

In zu alten Windowsen oder saudämlich eingestellten neueren Windowsen
nutzt der zwar auch CreateMessageDialog, aber so muß man sich nicht selber um die Länge der Buttons kümmern.



TTaskDialog.Buttons

PS: Rate mal, warum Buttons ein ModalResult-Property besitzen.

[norwegen60]

Mmmh, weil ich TTaskDialog noch nicht kannte? Ich habs ausprobiert und das ist genau das richtige.

Habe festgestellt, dass der Index mir eh nur zufällig genutzt hätte. Ich war der irrigen Meinung, dass die Buttons in der Reihenfolge angezeigt werden, wie sie in MyMessageDlg('Test der eigenen Button.', mtConfirmation, [mbYes, mbNo, mbOk, mbCancel], ['ButtonYes', 'ButtonNo', 'ButtonOK'], 'Dialog Test') gelistet sind. Da das aber ja gar nicht der Fall ist, wäre es eher Zufall gewesen, wenn das Result dem Index in aButtons entsprochen hätte.

Danke
Gerd

[norwegen60]

Ein kleines Problem ist doch aufgetreten.

Wenn der Benutzer das Fenster einfach nur wieder schließt, möchte ich festlegen, welches ModalResult zurück geliefert wird. In meinem Beispiel sollte das Cancel sein, wenn es diesen Button gibt
Mein Code sieht so aus

Delphi-Quellcode:

function MyMessageDlg(const sMsg: String; aDlgTypt: TMsgDlgType; sArrCaption: array of String;
  sDlgCaption: String = ''): Integer;
// *****************************************************************************************************************************************
var
  aMsgdlg: TForm;
  i: Integer;
  sButton: String;
  TaskDialog: TTaskDialog;

begin
  // create a custom task dialog
  TaskDialog := TTaskDialog.Create(Application);
  try
    TaskDialog.Caption := sDlgCaption;
    TaskDialog.Title := sMsg;
    TaskDialog.CommonButtons := []; 

    TaskDialog.ModalResult := 0;

    // add customized buttons to the task dialog
    for i := low(sArrCaption) to High(sArrCaption) do
    begin
      with TTaskDialogButtonItem(TaskDialog.Buttons.Add) do
      begin
        Caption := sArrCaption[i];
        ModalResult := i;
        if LowerCase(Caption) = 'cancel' then
          TaskDialog.ModalResult := i;
      end;
    end;

    // display the dialog box and read the ModalResult
    if TaskDialog.Execute then
      Result := TaskDialog.ModalResult;
  finally
    TaskDialog.Free;
  end;

  sButton := '';
  if High(sArrCaption) > 0 then
    sButton := sArrCaption[Result];
end;

lDialogResult := MyMessageDlg('Test der eigenen Button.', mtConfirmation, ['ButtonYes', 'ButtonNo', 'ButtonOK', 'Cancel'], 'Dialog Test');

Klicke ich aber auf das 'Schließen Kreuz' im Header, wird immer ModalResult = 2 geliefert. Das entspricht dem standardmässigen mrCancel.
Kann ich das ändern oder wäre es besserer Stil, wenn ich meine eigenen Results mit einem Offset versehe so dass sie nicht die Standards verbiegen?