![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#2
|
||||
|
||||
|
Cita:
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;
__________________
Saludos, Peter Investment Última edición por Investment fecha: 28-04-2005 a las 18:24:12. |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|