Delphi - Texto que aparece desde la izquierda

 
Vista:

Texto que aparece desde la izquierda

Publicado por BigLuis (463 intervenciones) el 20/11/2002 16:27:32
Vi un mensaje hace unos días y como no lo encuentro ofrezco una solución sencilla y corta. En el mensaje se preguntaba como conseguir que un texto apareciera desde la izquierda secuencialmente en un TEdit o similar.Ahí va:

const
Texto = 'HOLA ¡¡¡ PÁGATE UN CAFE';

procedure TFormPrincipal.Timer1Timer(Sender: TObject);
begin
Label1.caption := copy(Texto, 1, Timer1.Tag +1);
Timer1.Tag := Timer1.Tag + 1;
if Timer1.Tag = Length(Texto)+1 then
begin
Sleep(3000);
Label1.Caption:='';
Timer1.Tag:=0;
end;
//Timer1.Enabled := False; //Continua sin parar
Application.ProcessMessages;
end;

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder