AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Index des TMsgDlgButtons ermitteln

Ein Thema von norwegen60 · begonnen am 22. Dez 2022 · letzter Beitrag vom 23. Dez 2022
Antwort Antwort
norwegen60

Registriert seit: 23. Dez 2007
Ort: Schwarzwald
505 Beiträge
 
Delphi 12 Athens
 
#1

Index des TMsgDlgButtons ermitteln

  Alt 22. Dez 2022, 15:11
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
  Mit Zitat antworten Zitat
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
2.865 Beiträge
 
Delphi 12 Athens
 
#2

AW: Index des TMsgDlgButtons ermitteln

  Alt 22. Dez 2022, 17:18
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
  Mit Zitat antworten Zitat
norwegen60

Registriert seit: 23. Dez 2007
Ort: Schwarzwald
505 Beiträge
 
Delphi 12 Athens
 
#3

AW: Index des TMsgDlgButtons ermitteln

  Alt 23. Dez 2022, 03:00
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
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.323 Beiträge
 
Delphi 12 Athens
 
#4

AW: Index des TMsgDlgButtons ermitteln

  Alt 23. Dez 2022, 03:37
Ist es so umständlich einfach Delphi-Referenz durchsuchenTTaskDialog 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.



Delphi-Referenz durchsuchenTTaskDialog.Buttons

PS: Rate mal, warum Buttons ein ModalResult-Property besitzen.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (23. Dez 2022 um 03:40 Uhr)
  Mit Zitat antworten Zitat
norwegen60

Registriert seit: 23. Dez 2007
Ort: Schwarzwald
505 Beiträge
 
Delphi 12 Athens
 
#5

AW: Index des TMsgDlgButtons ermitteln

  Alt 23. Dez 2022, 05:50
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
  Mit Zitat antworten Zitat
norwegen60

Registriert seit: 23. Dez 2007
Ort: Schwarzwald
505 Beiträge
 
Delphi 12 Athens
 
#6

AW: Index des TMsgDlgButtons ermitteln

  Alt 23. Dez 2022, 06:17
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) = 'cancelthen
          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?
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:42 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz