Tips N Trik Delphi 7.0

Memberi Warna Pada Text Dalam Message Dialog ::::




Secara default warna teks pada kotak dialog akan mengikuti warna sesuai setting pada display properties. Dengan Sedikit tips di bawah ini anda dapat menampilkan kotak dialog dengan warna yang dapat anda tentukan sendiri.

Procedure TForm1.Button1Click(Sender:TObject);

var
MsgForm : TForm;
i : integer;

Begin
//Membuat Message Dialog
MsgForm := CreatedMessageDialog(\'Tulisan ini berwarna
Merah !!\',mtinformation,[mbOK]);

with MsgForm do
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TLabel then
(components[i] as TLabel).Font.color :=clred;
ShowModal ;
end;
MsgForm.free;
end;