MessageBox mit Ja, Nein, Alle Buttons

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