30 June 2011

Effand Nozh

Judul Berjalan Di Delphi 7


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.

Effand Nozh

About Effand Nozh -

Author Description here.. Nulla sagittis convallis. Curabitur consequat. Quisque metus enim, venenatis fermentum, mollis in, porta et, nibh. Duis vulputate elit in elit. Mauris dictum libero id justo.

Subscribe to this Blog via Email :