Arya Ariyani's Blogger

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label1.Left:=Label1.Left-15; //Nilai (15) tingkat kecepatan bergerak
  if Label1.Left <=-500 then
   Label1.Left:=400;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
 Image1.Left:=Image1.Left-10; //Nilai (10) tingkat kecepatan bergerak
  if Image1.Left <=-700 then
   Image1.Left:=600;
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
 Label2.Left:=Label2.Left-15; //Nilai (15) tingkat kecepatan bergerak
  if Label2.Left <=-500 then
   Label2.Left:=400;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin

end;

end.



unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    tmMainTimer: TTimer;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.