suponiendo que a cada componente le dejamos el nombre por defaul, seguimos con lo siguiente
al edit, leponemos en su propiedad de texto: "Este es el texto que se va a estar moviendo".
al timer el intervalo lo dejamo en 100.
al label en su propiedad caption lo dejamos en blanco.
Codigo del boton:
Txt:= Edit1.Text;
Txt:=Label1.Caption;
En el Timer
Timer1Timer(Sender: TObject);
Txt := Label1.Caption;
Label1.Caption := Copy(txt, 2, Length(txt) - 1) + Copy(txt,1,1);
Esto es, si queremos que el texto se desplace hacia la Izquierda; ahora bien si queremos que se desplace hacia la derecha
Label1.Caption := Copy(txt, 2, Length(txt) - 1) + Copy(txt,1,1);
Esto es, si queremos que el texto se desplace hacia la Izquierda; ahora bien si queremos que se desplace hacia la derecha
Txt := Label1.Caption;
Label1.Caption := Copy(txt,Length(txt)-1,1) + Copy(txt,1, Length(txt)-1) ;
y listo tenemos nuestra marquesina desplazante.
No hay comentarios:
Publicar un comentario