como hacer un cronometro

[Nicoasd]

buenas...

queria ver si alguien me puede decir com hacer un cronometro, lo que quiero hacer es un cronometro en donde yo ponga un tiempo dado y cuando se cumpla este tiempo me avise de alguna forma

[[Caral]]

Hola Nicoasd
Eso se hace un un componente TTimer, asignandole el tiempo y el evento que necesites.
Saludos

[Nicoasd]

ya sabia que es co el evento TTimer, pero lo que no se es como usarlo, si sos tan hamable de mostrarme con un simple ejemplo te agradeceria,...

desde ya muchas gracias...

[[Delphius]]

Veamos... el ejemplo más sencillo que se me ocurre:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  // quiero que a los 3 segundos... se ejecute
  // el código
  timer1.Interval := 3000;
  // lo habilito...
  timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ShowMessage('Este cartel aparece tras pasar 3 seg');
  // si quieres que se detenga una vez
  // ejecutado... pones enabled en false
  // si quieres que se ejecute cada x segundos
  // tiene que eser true
  timer1.Enabled := False;
  // pon aqui lo que quieras hacer
end;

Espero que te sirva.
Saludos,

[[Lepe]]

Si vas a realizar una agenda, recordatorio o algo parecido, busca en el foro por "recordatorio" y encontrarás solución.

Además te recomiendo que utilices fechas y horas si tiene que avisarte en días distintos, una solución rápida es:

Código Delphi [-]
var FechaAviso, FechaHoy :TDatetime;
begin
  // recuerda "uses DateUtils"
  FechaHoy := now;
  FechaAviso := DateTimePicker1.Date;
  Timer1.Interval := MilliSecondsBetween(FechaAviso, FechaHoy);
  Timer1.Active := true;
end;

Saludos

[[Delphius]]

¿MilliSecondsBetween?

A esa no me la presentaron... la desconocía totalmente.
Algo nuevo para aprender.

Empezado por Lepe

Además te recomiendo que utilices fechas y horas si tiene que avisarte en días distintos

Es verdad... pasé por alto esa posibilidad. Creo que mi ejemplo fue demasiado simple.

Saludos,

[[Caral]]

Hola
Este es el ejemplito sencillo:
Colocas un edit, un timer y un boton:
Pones la opcion de enable a false en el timer:
En el evento on click del boton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Interval:= StrToInt(Edit1.Text);
  Timer1.Enabled:= True;
end;

El que define el tiempo es el edit, asi puedes cambiarlo cuando quieras.
En el evento del timer: OnTimer, pones:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   MessageBox(Handle,
             PChar('Ya se cumplio el tiempo'),
             PChar('mensaje'),
             MB_OK + MB_DEFBUTTON1 + MB_APPLMODAL);
   Timer1.Enabled:= False;
end;

Con esto se muestra el mensaje y se desactiva el timer hasta que se coloque otro tiempo y se presione el boton.
Con esto y lo expuesto por los maestros podras hacer lo que necesitas.
Saludos