Tutorial ini adalah untuk salah satu Penghias Form saja . ..
Disini kita akan membuat Judul form Project di delphi kita berjalan . . . .
Jadi ketika decompile judul form kita akan berjalan dari kekanan to kiri . . .
Image nya seperti ini . .
Langsung saja bikin project anda . . .
Pada form1 klik 2X sehingga nantinya form create procedur
Jangan lupa tambahkan satu buah timer ya .. .
Berikut ini listing program nya . ..
//Source
procedure TForm1.Timer1Timer(Sender: TObject);
var
i: Integer;
begin
Application.Title := a;
Form1.Caption := a;
for i := 1 to (Length(a) - 1) do
a[i] := Application.Title[i + 1];
a[Length(a)] := Application.Title[1];
end;
NB: Atur interval ditimer menjadi 250 agar pelan
Dan enable nya dibuat “true”
Listing Pada Form Create
procedure TForm1.FormCreate(Sender: TObject);
begin
a:='M a t e m a t i k a d i s k r i t ';
end;
tambahkan listing ini juga
{$R *.dfm}
var
a: string;
NB: dibawah Uses
Selamat Mencoba jangan Lupa kalau bingung silahkan ajakan kebingungan anda di coment
Jangan lupa juga tekan ctrl+d untuk membokmark blog ini.
