Topic: scrolling text
Pls Help, I need a sample of scrolling text..
Thanks in Advance!
My Visual Database → General → scrolling text
Pls Help, I need a sample of scrolling text..
Thanks in Advance!
Hello manixs2013
You could use this :
var Timer: TTimer;
procedure ScrollingText(Interval:Integer;LabelName:TdbLabel);
var text:TdbLabel;
function ScrollText(text:TdbLabel):string;
var stroka:string;
begin
text:= LabelName;
stroka:= text.caption;
text.caption:= copy (stroka, 2, length (stroka) - 1)+ copy(stroka,1,1);
end;
begin
Timer := TTimer.Create (nil);
Timer.OnTimer := @ScrollText;
Timer.Interval := Interval;
Timer.Enabled := True;
end;
procedure Form1_OnShow (Sender: string; Action: string);
begin
Form1.Label1.Caption:= '"To get information, please call us 091245896589 or click this link : http://www.mrbingo.kz ';
ScrollingText(200,Form1.Label1);
end;
Hope this helps you
JB
My Visual Database → General → scrolling text
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi