创建出个性的对话框.

procedure TForm1.btn1Click(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;