MessageBox mit Ja, Nein, Alle Buttons

[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.