Kamis, 17 November 2011

Tulisan Berjalan Delphi

Tulisan berjalan pada delphI
===============================================================
sekedar contoh sederhana:

tinggal tambahkan Component TTimer dan panggil di event OnTimer

MyBannerVer01('Tulisan berjalan');

{hasilnya tulisan berjalan bolak balik}


function MyBannerVer01(Text: String): String;
var
panjang,Akhir : integer;
begin
panjang := Length(Text);
Akhir := panjang * 2 + 2+ Delay;
if z <= panjang then
begin
Result := copy(Text,1,z);
inc(z);
end else
if z >= panjang then
begin
delete(Text,1,z-panjang);
Result := Text;
inc(z);
end;
if z = Akhir then z := 0;

end;


sekedar contoh sederhana:

tinggal tambahkan Component TTimer dan panggil di event OnTimer

MyBannerVer01('Tulisan berjalan');

{hasilnya tulisan berjalan bolak balik}


function MyBannerVer01(Text: String): String;
var
panjang,Akhir : integer;
begin
panjang := Length(Text);
Akhir := panjang * 2 + 2+ Delay;
if z <= panjang then
begin
Result := copy(Text,1,z);
inc(z);
end else
if z >= panjang then
begin
delete(Text,1,z-panjang);
Result := Text;
inc(z);
end;
if z = Akhir then z := 0;

end;

Tidak ada komentar:

Poskan Komentar