Live As Technology

Buatlah 2 Button
klik button1,kemudian pada object inspector pilihlah caption dan ganti dengan RED
klik button2,kemudian pada object inspector pilihlah caption dan ganti dengan BLUE
seperti pada gambar sbb

KEMUDIAN TEKAN F12 dan ketikan CODE SBB
-------------------------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Color:=clred;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.color:=clblue;
end;

end.
--------------------------------------------------------------
tekan F9 untuk menjalankan program
maka hasilnya SBB

SELAMAT MENCOBA