自定义MessageBox的窗口颜色，字体等属性

unit Dialog; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; 

type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
var 
Messaggio : String; 
TipoDialogo : TMsgDlgType; 
BottVisualizzati : TMsgDlgButtons; 
begin 
  Messaggio :='.message for personal dialog.'; 
  TipoDialogo := mtWarning; 
  BottVisualizzati := [mbOK,mbCancel]; 
  with CreateMessageDialog(Messaggio,TipoDialogo,BottVisualizzati) 
   do try 
    Caption := 'This is a new persoanal dialog'; 
    Color := clAqua; 
    Font.Color := clRed; 
    Width := 250; 
    ShowModal; 
    finally 
    Free; 
   end; 
end; 

end.

效果如下：