Movimiento de texto dentro de un TEdit

[dec]

Hola,

Siento no poder ayudarte. Lo cierto es que sólo se me ocurre usar algún "Timer" y los correspondientes cálculos y eso, pero, uno puede imaginar que hay formas más curiosas y elegantes de "animar controles" o lograr "efectos" del tipo que te interesa. Lo que el código que he mostrado logra es, poco más o menos, lo que puede verse en la siguiente imagen:



De todas formas, te adjunto el ejemplo "completo" para que puedas echarle un vistazo.

[Cristhor1982]

Muchas Gracias por tu ayuda, voy a tratar de hacer algo mas "Animado"....si lo logro lo pondre aca saludos. Nuevamente muchas gracias

Empezado por dec

Hola,

Siento no poder ayudarte. Lo cierto es que sólo se me ocurre usar algún "Timer" y los correspondientes cálculos y eso, pero, uno puede imaginar que hay formas más curiosas y elegantes de "animar controles" o lograr "efectos" del tipo que te interesa. Lo que el código que he mostrado logra es, poco más o menos, lo que puede verse en la siguiente imagen:



De todas formas, te adjunto el ejemplo "completo" para que puedas echarle un vistazo.

[ecfisa]

Hola Cristhor1982.

No sé si se aproxíma a lo que buscas, pero esta podría ser otra opción:

Código Delphi [-]
...
implementation

var
  Texto : string = ' Este es el texto que se deberia mover. ';

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 1000 div 10;
  Timer1.Enabled  := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit1.Text := Copy(Texto, Length(Texto), 1) + Copy(Texto, 1, Length(Texto) -1);
  Texto      := Edit1.Text
end;

Saludos

[Cristhor1982]

Gracias...por la orientación ....saludos