自定义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.

效果如下：

    本文转自 OldHawk  博客园博客，原文链接：http://www.cnblogs.com/taobataoma/archive/2007/09/25/904962.html，如需转载请自行联系原作者