Hello prayendratohir,
Friday, September 19, 2003, 12:28:15 PM, you wrote:
p> hi ..
p> buat rekan - rekan delphi ada yang mau saya tanyakan nih ...
p> gimana caranya membuat text yang bisa berjalan contoh "Selamat
p> Datang" pada frm/table/statusbar/panel. kalau ada yang tahu tolong
p> dong gimana cara membuatnya sekalian souc codenya yah ...
p> terima kasih.
untuk scroll text di caption form, kalo utk yang lain modif aja
sendiri:
// dari swissdelphicenter
var
a:string;
procedure TForm1.FormCreate(Sender: TObject);
begin
a:='Look at here !...';
end;
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;
**********
--
Best regards,
Irwan
[EMAIL PROTECTED]
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Upgrade to 128-Bit SSL Security!
http://us.click.yahoo.com/p7cEmB/s7qGAA/yigFAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
