faça assim:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
posicao : integer;
texto : string;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption := copy(texto,1,posicao);
inc(posicao);
if posicao > length(texto) then posicao := 0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
texto := 'Olá mundo!';
posicao := 0;
end;
end.
----- Original Message -----
From: werelli
To: [EMAIL PROTECTED] ; DELPHI_TOTAL ; LISTA_DELPHI
Sent: Tuesday, April 03, 2007 7:39 AM
Subject: [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 processo e a partir disso o texto entra
pausadamente, nada de um click uma letra, seria mais ou menos assim com um
timer ou outro componente que vocês possam me indicar:
begin
if timer1.interval = 1000 else label1.caption := ' O';
if timer1.interval = 1500 else label1.caption := ' i';
if timer1.interval = 2000 else label1.caption := ' !';
Claro que o código acima não funciona, mas é so para exemplificar o que
preciso, que a cada intervalo de 'tantos' do timer uma letra seja inserida.
Como sempre conto com os amigos e ficarei agradecido;
Atenciosamente,
werelli
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
__________ Informação do NOD32 IMON 2157 (20070330) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
