Hola tengo el siguiente codigo funcional de como hacer un efecto marquesina en un titulo de un formulario.
Código Delphi
[-]procedure TForm1.Form_NowClick(Sender: TObject);
begin
test.Enabled := true;
end;
procedure TForm1.testTimer(Sender: TObject);
var
test: string;
begin
test := Form1.Caption;
Form1.Caption := Copy(test, 2, Length(test) - 1) + Copy(test, 1, 1);
end;
Funciona bien pero lo que quiero hacer es que se desplace por todo el caption , mi codigo solo se desplaza por el espacio que define su cantidad de letras.
Probe cambiando el Length(test) por Form1.Width , pero aun asi no cambia nada.
¿ Que tendria que cambiar ?