Mega Code Archive
TypeWriter style text
<![CDATA[
Title: TypeWriter style text
Question: How to make letters appear?
Answer:
Hey i've played with some effects and loook what i got.
var
i:Integer;//Initialize var with 0 value
....
procedure TForm1.Timer1Timer(Sender: TObject);
var
txt:String;
begin
i:=i+1;
txt:='http://tsoft.home.ro';
if txt=Label1.Caption then
begin
i:=0;
Label1.Caption:='';
end
else
Label1.Caption:= Copy(txt, Length(txt)+1, length(txt))+Copy(txt,1,i);
end;
//You can improve it to make it better;
That's all for this week from Master Tavi;
]]>