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!

Hallo Mackhack,

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

zusammenfalten · markieren

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.

zusammenfalten · markieren

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

zusammenfalten · markieren

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?

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

warum nicht gleich mit:

markieren

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

Danke.

Muss ich mir gleich mal ansehen!

Edit// Das ist MessageDlg. Ich sprach von MessageBox

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.

Ok, dann nehme ich mal den MessageDlg.

Zitat von elundril:

warum nicht gleich mit:

markieren

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.

ups ja stimmt mir mr statt mb.

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

lg el