Delphi - ET, marquesina

Hola ET,

estoy intentando hacer una marquesina desplazandose como esa k se hace en lenguaje HTML, con el comando MARQUEE, pero lo quiero hacer en DELPHI, k es de un modo diferente a qui te dejo este pequeño codigo para hacerlo con un label, o si se puede hacer en un edit, pruebalo parak vea k la letra k le asigna al lebol se va y no vuelve k me falta

Tienes q usar un componente Timer, en su evento OnTimer pones algo asi como :

label1.left := label1.left + 5;

Nota: tienes k usar un componente timer k esta en la ficha System y asignarle un cadena de carecteres al label.

gracias de ante mano ET

Te faltan algunas validaciones, intenta esto

Declara esta variable en Private

mY:integer;

en el evento OnCreate de la form pon esto:

my:=5;

Y en el timer pones esto:

if (Label1.Left+Label1.Width)>=(Form1.Width)then
mY:=-5
else if(Label1.Left)<=0 then
my:= 5;
Label1.Left := Label1.Left+my;

hola

como hago lo de la marquesita desplazandose

pero la quiero mostrar desde delphi en un script