MessageBox mit Ja, Nein, Alle Buttons

[Mackhack]

Hi,

hat jemand einen (modifizierten) MessageBox Code um eine Kopierfunktion auszustatten mit den Buttons Ja, Nein, Alle? Da ich ungern x mal auf Ja klicken moechte.

Danke!

[Matze]

Hallo Mackhack,

das ist wahrscheinlich nicht die sauberste Lösung, aber die, die mir spontan einfällt:

Delphi-Quellcode:

var
  Dlg: TForm;

const
  IDALL = 45; // irgendwas nicht vordefiniertes


  Dlg := CreateMessageDialog('Test', mtInformation, MBYESNOCANCEL);
  try
    with (Dlg.FindComponent('Cancel') as TButton) do
    begin
      Caption := 'Alle';
      ModalResult := IDALL;
    end;
    Dlg.ShowModal;
  finally
    FreeAndNil(Dlg);
  end;

Das erstellt einen Standard-Dialog und ändert die Caption des Cancel-Buttons mit mit deiner eigenen. Als ModalResult musst du dir deine eigene Konstante erstellen, um einen aussagekräftigen Konstantennamen zu erhalten. Da kannst du natürlich jeden beliebigen Inbteger-Wert nehmen, nur würde ich darauf achten, dass diese nicht in den Dialog-Konstanten vorkommt. Die von IDYES und IDNO darfst du natürlich auch nicht verwenden, da du diese selbst benötigst.

[Nuclear-Ping]

Delphi-Quellcode:

var
  Dlg: TForm;

const
  IDALL = 45; // irgendwas nicht vordefiniertes


  Dlg := CreateMessageDialog('Test', mtInformation, MBYESNOCANCEL);
  try
    with (Dlg.FindComponent('Cancel') as TButton) do
    begin
      Caption := 'Alle';
      ModalResult := IDALL;
    end;
    Dlg.ShowModal;
  finally
    FreeAndNil(Dlg);
  end;

Hä? ^^ Warum nicht einfach

Delphi-Quellcode:

var
  r: Integer;
begin
  r := MessageDlg ('Willst du?', mtInformation, [mbYes, mbNo, mbAll], 0);
  case r of
    mrYes:
      ShowMessage ('Yo');
    mrNo:
      ShowMessage ('Nö ...');
    mrAll:
      ShowMessage ('Immer!');
  end;
end;

Oder hab ich da was falsch verstanden?

[Matze]

Oh, ich wusste nicht, dass es mbAll gibt, dann ist meine Lösung natürlich die etwas umständlichere und nicht so tolle.

[elundril]

warum nicht gleich mit:

Delphi-Quellcode:

begin
  case MessageDlg('Magst du Tiere?',mtConfirmation,[mbYes,mbNo,mbAll],0) of
    mbYes: Showmessage('Du magst Hunde, stimmts?');
    mbNo: Showmessage('Ich auch nicht.');
    mbAll: Showmessage('Ein richtiger Tierfreund!');
  end;
end;

lg el

[Mackhack]

Danke.

Muss ich mir gleich mal ansehen!

Edit// Das ist MessageDlg. Ich sprach von MessageBox

[Matze]

Zitat von Mackhack:

Edit// Das ist MessageDlg. Ich sprach von MessageBox

Was spricht dagegen, einen MessageDialog zu nutzen? Mit der MessageBox selbst geht es afaik nicht.

[Mackhack]

Ok, dann nehme ich mal den MessageDlg.

[Nuclear-Ping]

Zitat von elundril:

warum nicht gleich mit:

Delphi-Quellcode:

begin
  case MessageDlg('Magst du Tiere?',mtConfirmation,[mbYes,mbNo,mbAll],0) of
    mbYes: Showmessage('Du magst Hunde, stimmts?');
    mbNo: Showmessage('Ich auch nicht.');
    mbAll: Showmessage('Ein richtiger Tierfreund!');
  end;
end;

lg el

Kommt doch aufs gleiche raus? Bis auf dass du auf "mr..." statt auf "mb..." prüfen musst.

[elundril]

ups ja stimmt mir mr statt mb.

ich find meins besser weil man da eine Variable weniger hat.

lg el