RE:Un cronometro en delphi
Pues esto pude ser tan complejo como quieras, ai va una forma sencilla, en un form pones un timer, un label (ai va a aparecer el tiempo), y dos botones (iniciar, parar).
al timer le pones la propiedad enabled a False y un intervalo muy corto (10 ms, pero esto no sirve de mucho, un multimedia timer quedaria mejor, pero con el timer servira).
ademas de lo anterior debes declarar una propiedad (variable) privada del form que sera de tipo TDateTime;
horaInicial : TDateTime;
ahora en el evento OnClick del boton iniciar pones lo siguiente:
if not Timer1.Enabled then begin
horaInicial := Now;
Timer1.Enabled := True;
end;
en el evento OnClick del boton parar pones lo siguiente
Timer1.Enabled := False;
y en el evento OnTimer del Timer pones lo siguiente:
//declaras unas variables:
lapso : TDateTime;
hora, min, seg, mseg : Word;
...
lapso := Now - horaInicial;
DecodeTime(lapso, hora, min, seg, mseg);
Label1.Caption := IntToStr(hora ) + ':' + IntToStr(min) + ':' + IntToStr(seg) + '.' +IntToStr(mseg);
esto debe funcionar, no tengo el delphi a la mano asi que no puede asegurarlo. Consiguete algun componente TDigitalDisplay para que se vea mejor, ademas de que debes formatear la cadena para que aparezca bien.
Salu2