Wednesday, 11 April 2012

Memberi Warna Text dalam Message Dialog pada Delphi

Message Dialog yang biasa Kita bikin Text Pesannya berwarna Hitam, kali ini saya kutip dari sebuah buku di perpustakaan kampus, Memberi Warna Text dalam Message Dialog pada Delphi.

langkahnya sangat mudah....
desain Form seperti ini, hanya menambahkan 1 Button pada Form.



untuk hasilnya nanti seperti ini :

 

akan muncul message seperti itu setelah mengekskusi tombol (Button).

untuk membuatnya tinggal copas kode dibawah ini ke dalam event OnClick pada Button.


procedure TForm1.Button1Click(Sender: TObject);
var
  MsgForm : TForm;
  i : integer;
begin
  //membuat message dialog

  MsgForm := CreateMessageDialog('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;

end.


Sekian.........

Semoga Bermanfaat....

0 comments:

UbaidRahman