VionAge-Blog's

TEXT  BERUBAH WARNA

• Buatlah text sederhana dalam Delphi 7 dengan macam warna seperti contoh berikut:

•                        Tambahkan Timer1  yang terdapan pada Button Syistem
•                                  Dalam Timer1 yang terdapat dalam Unit 1 tambahkan data sebgai berikut:

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls;

type

  TForm1 = class(TForm)

    Timer1: TTimer;

    Label1: TLabel;

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if label1.Font.Color=clred then

label1.Font.color:=clblue

else

label1.Font.color:=clred;

end;

end.

• 1.       Setelah selesai tampilan pada text tersebut dapat berubah-ubah warna.