Declará a Inicio y T_Actual como Extended;
El codigo que iría antes de iniciar el proceso seria éste:
Código Delphi
[-]
Inicio:= GetTickCount; Timer1.Interval := 300;
Timer1.Enabled := true;
Y éste es el evento OnTimer del Timer:
Código Delphi
[-]procedure TForm1.Timer1Timer(Sender: TObject);
var dif: extended;
begin
T_Actual := GetTickCount;
dif := (T_Actual - Inicio) / 1000; Label1.Caption := FloatToStr(Round(dif)); end;
Cita:
Empezado por Bauhaus1975
Voy a documentarme sobre el TThread, ¿tendría que meter en una hebra ambos procesos?
|
No sé que tipo de proceso es el que estás ejecutando pero primero proba añadiendo Application.ProcessMessages.
Y si lo haces con Threads, tenés que poner en uno solo el proceso que vos manejas, ya que el TTimer crea un Thread propio.