Animasi sederhana borland delphi

berikut ini Source codenya :

unit Bola;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Panel1: TPanel;

Timer1: TTimer;

Bola: TShape;

Label1: TLabel;

Label2: TLabel;

sb_ukur: TScrollBar;

sb_cepat: TScrollBar;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Timer1Timer(Sender: TObject);

procedure sb_ukurChange(Sender: TObject);

procedure sb_cepatChange(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

kanan : boolean ;

bawah : boolean ;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if kanan then

begin

bola.Left:=bola.Left+1;if bola.Left+bola.Width>=panel1.ClientWidth then kanan :=false;

end

else

begin

bola.Left:=bola.Left-1;if bola.Left<=0 then kanan := True;

end;if bawah then

begin

bola.Top:=bola.Top+1;

if bola.Top +bola.Width >=panel1.ClientHeight then bawah := False;

end

else

begin

bola.Top := bola.Top-1;if bola.Top <= 0 then bawah := true;

end;

end;

procedure TForm1.sb_ukurChange(Sender: TObject);

begin

bola.Width:= sb_ukur.Position;

bola.Height:=sb_ukur.Position;

end;

procedure TForm1.sb_cepatChange(Sender: TObject);

begin

timer1.Interval:=101-sb_cepat.Position;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

timer1.Enabled:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

timer1.Enabled:=false;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.