Re: [delphi-br] Olá pessoal, o aprendiz solicita uma ajuda!

Neste exemplo usei um TTimer e TLabel. procedure TForm1.Timer1Timer(Sender: TObject); const Texto = 'Veja se funciona!'; begin if Length(Label1.Caption) < Length(Texto) then Label1.Caption := Label1.Caption + Copy(Texto, Length(Label1.Caption) + 1, 1); end; procedure TForm1.FormCr

Re: [delphi-br] Olá pessoal, o aprendiz solicita uma ajuda!

Olá werelli ! Coloque 1 Tlabel, 1 Ttimer e 1 Tbutton no seu form. Coloque o Timer1 como false. Dê 2 clicks no botao e insira o codigo abaixo: // O botao 'liga' a escrita procedure TForm1.Button1Click(Sender: TObject); begin timer1.Interval := 500; timer1.Enabled := true; end; Dê 2 clicks no

[delphi-br] Olá pessoal, o aprendiz solicita uma ajuda!

Olá pessoal! Um bom dia a todos. Bem gente minha dúvida é de principiante, mas lá vai...já falei aqui sobre isso em posts anteriores, mas ainda não consegui chegar a uma solução satisfatória. Gostaria de inserir um texto em label de forma pausada, tipo máquina de escrever, um evento descadeia o