Ver Mensaje Individual
  #3  
Antiguo 07-04-2009
Avatar de Lester
Lester Lester is offline
Miembro
 
Registrado: may 2003
Ubicación: Cienfuegos, Cuba.
Posts: 106
Reputación: 22
Lester Va por buen camino
Lightbulb

Hola, yo tampoco entiendo mucho a lo que te estás refiriendo, pero si quieres un scroll en la barra de título de tu aplicación, lo que deberías hacer es esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 i : integer;
begin
 i := 0;
 Form1.Caption := Edit1.Text;
 for i := Length(Form1.Caption) downto 0  do
  begin
   Form1.Caption := RightStr(Edit1.Text, i);
   //Aquí llevaría un Timer para que puedas ver el recorrido...
   //o un sleep(500); <-- Ojo no te dejará hacer más nada en la aplicación
  end;
end;

Lo que hice es simple, inserté en un FORM un Button y un Edit, y al evento del Button le puse el código antes mencionado arriba...

Espero que de algo te sirva...!!!
__________________
Lester Espinosa Martínez

[ Guía de estilo | La otra guía de estilo | Buscador | Trucos | My personal blog ]
Responder Con Cita