Buscar por:

Label - efeito digital

Código

Este exemplo usa um Timer e um Label.

Você coloca o texto na variável a o texto aparece no Label conforme o tempo determinado, caracter por caracter, dando um efeito como se estive-se sendo digitado.

implementation

var

   i:Integer;

   Texto:String;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

   i:=1;

   Texto:='Planeta Delphi - www.delphi.eti.br';

   Label1.Caption:='';

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

   if (Length(Texto) + 1) = i then

      begin

         i:=1;

         Label1.Caption:='';

      end

   else

      begin

         Label1.Caption:=Label1.Caption + Copy(Texto,i,1);

         i:= i + 1;

      end;

end;