Animasi Teks Berjalan

Dalam suatu program, terkadang kita jenuh untuk menunggu perintah yang sedang loading. Untuk mengatasi hal itu, program bisa diatur sedemikian rupa sehingga ada elemen yang membuat kita tidak bosan untuk menunggunya. Salah satu caranya yaitu dengan adanya teks berjalan pada program kita.

Berikut adalah cara sederhananya;
1. buka delphi7 dan buat form-nya
2. tambahkan panel pada tab standard
3. klik panel itu kemudian tambahkan label pada panel itu.
4. misal pada label itu kita beri caption 'SELAMAT DATANG ....' , kemudian aturlah font label itu. (warna, ukuran, maupun bentuk font-nya).
5. kemudian tambahkan timer pada tab system. pada object inspector > tab properties > Interval > jadikan 20 (atau menyesuaikan).
6. untuk unit satu, gantikan code seperti di bawah ini,,

-----------------------------------------------------------------------------------------------------------

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  jeda : integer = 5000 ;
  n : integer ;
  tulisan : string = 'SELAMAT DATANG....' ;
  batas_kiri, batas_kanan : integer ;

implementation

{$R *.dfm}

procedure delay(t:LongInt);
var mulai, selesai:LongInt ;
begin
mulai := GetTickCount ;
repeat
Application.ProcessMessages ;
selesai := GetTickCount ;
until (selesai-mulai) >= t ;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
batas_kanan:=panel1.Left+panel1.Width;
  batas_kiri:=panel1.Left-label1.Width;
  if label1.Left=batas_kanan then
    begin
      label1.Left:=batas_kiri
    end
  else
    begin
      label1.Left:=label1.Left+1;
    end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

end.
-------------------------------------------------------------------------------------------------------





untuk lebih jelasnya, anda dapat download contohnya untuk mengutak-atiknya...
klik
http://www.ziddu.com/download/21181215/Splashdrkirikekanan.rar.htmlatau
http://www.ziddu.com/download/21201305/Splashdrkanankekiri.rar.html
code tersebut di atas adalah untuk animasi teks berjalan dari kiri ke kanan, sedangkan dari kanan ke kiri code.nya adalah..

---------------------------------------------------------------------------------------------------
var
  Form1: TForm1;
  jeda : integer = 5000 ;
  n : integer ;
  tulisan : string = 'SELAMAT DATANG....' ;
  batas_kiri, batas_kanan : integer ;

implementation

{$R *.dfm}

procedure delay(t:LongInt);
var mulai, selesai:LongInt ;
begin
mulai := GetTickCount ;
repeat
Application.ProcessMessages ;
selesai := GetTickCount ;
until (selesai-mulai) >= t ;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
batas_kiri:=panel1.Left-panel1.Width;
  batas_kanan:=panel1.Left+label1.Width;
  if label1.Left=batas_kiri then
    begin
      label1.Left:=batas_kanan
    end
  else
    begin
      label1.Left:=label1.Left-1;
    end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

end.
----------------------------------------------------------------------------------------------