PDA

Ver la Versión Completa : Como realizar un cronómetro


juanchi
21-09-2003, 16:46:15
Como puedo hacer un cronómetro en un cliente y que el resultado se vea en el servidor. Desde ya muchas gracias.

marcoszorrilla
21-09-2003, 20:47:08
Esto puede ser una pequeña idea:

private
{ Private declarations }
public
inicio:TDateTime;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
inicio:=Now;
timer1.Enabled:=not Timer1.Enabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption:=FormatDateTime('HH:mm:ss',Now - inicio)
end;


Un Saludo.