Messagebox mit farbigen TEButtons ...

[Helmi]

Hallo,

am Besten ist wirklich "CreateMessageDialog" zu verwenden.

Aus diesem Link heraus könnte man folgendes machen:

Delphi-Quellcode:

function SpecialMessageDlg(const ACaption: string; const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; ButtonColor: TColor; HelpCtx: Longint): Integer;
var
  i: Integer;
  btn: TButton;

begin
  with CreateMessageDialog(Msg, DlgType, Buttons) do
    try
      Caption := ACaption;
      HelpContext := HelpCtx;
      for i := 0 to ComponentCount - 1 do
      begin
        if (Components[i] is TButton) then
        begin
          btn := TButton(Components[i]);
          btn.Color := ButtonColor;
        end;
      end;
      Result := ShowModal;
    finally
      Free;
    end;
end;

Aufruf über:

Delphi-Quellcode:

  If SpecialMessageDlg('Überschrift', 'Ist das eine Frage?', mtConfirmation, mbYesNoCancel, clRed, 0) = mrYes then
    ShowMessage('Ja, das war eine Frage');