Ver Mensaje Individual
  #7  
Antiguo 24-02-2008
Avatar de ixMike
ixMike ixMike is offline
Miembro
 
Registrado: feb 2004
Posts: 1.151
Reputación: 22
ixMike Va por buen camino
Cita:
Empezado por Caral Ver Mensaje
Hola
Bueno yo se que los maestros ya te han dicho lo que puedes hacer, pero si ademas no quieres mover el raton para poner un componente timer, lo puedes crear por codigo.
aqui por ejemplo tendras un relojito en un label.
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:= '';
with TTimer.Create(nil) do
     try
      interval:= 1000;
      OnTimer:= Tiempo;
     finally
     end;
end;

procedure TForm1.Tiempo(Sender: TObject);
begin
      Label1.Caption:= TimeToStr(time);
end;

Saludos

¿Después del finally no falta un Free;?

Edito: no, vaya, no falta, sino no tienes el relojito ¡¡qué despiste!!
Responder Con Cita