Ver Mensaje Individual
  #2  
Antiguo 28-04-2005
Avatar de Investment
Investment Investment is offline
Miembro
 
Registrado: may 2003
Posts: 378
Reputación: 22
Investment Va por buen camino
Post

Cita:
Empezado por kanvictor
si le pongo un timer va ascendiendo... no me sirve.. ademas tengo el problema del formato... hh.mm.ss
¿Entiendo que quieres un Timer que vaya bajando el tiempo desde que se ejecuta la aplicacion no?

En ese caso y suponiendio que quieres que baje desde una hora hasta cero:

.- Pon una label en tu formulario con el caption: '01:00:00'
.- Pon un timer en tu formulario
.- En el evento OnTimer del Timer escribe lo siguiente:

Código:
procedure TForm1.Timer2Timer(Sender: TObject);
begin
   LabelTimer.Caption:= FormatdateTime('hh:mm:ss',StrToDateTime(LabelTimer.Caption) -0.00001);
 
   if labelTimer.caption:='00:00:00' then Close; //Se cierra la aplicacion
 
  end;
La etiqueta cambia cada segundo poniendo en el label un segundo menos y haciendo una cuenta atras hasta 00:00:00
__________________
Saludos,
Peter Investment

Última edición por Investment fecha: 28-04-2005 a las 18:24:12.
Responder Con Cita