Tiempo de espera (Necesito ayuda)

[[Caral]]

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

[ixMike]

Empezado por Caral

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!!

[rauros]

Muchísimas gracias. Me estáis ayudando un montón. Y lo de sleep está interesante, pero probaré el relojito gracias de nuevo .