ein Thread der alle 60 sekunden ein Label aktualisiert....

[ak1]

Hallo,

wie sieht ein Thread aus, der alle 60 sekunden ein bestimmtes Label oder eine Form aktualisiert (repaint).

Gruß

[Meflin]

dazu solltest du wohl besser einen timer mit intervall 60000 verwenden!

[Luckie]

Schick ihn für 60 Sekunden schlafen mit Sleep.

[MathiasSimmack]

Und wenn in der Zwischenzeit mit dem Programm noch gearbeitet werden (können?) soll?
Da wäre ein Timer bzw. ein Thread doch wahrscheinlich besser als sleep.

[Alexander]

Ich denke Luckie meint den Thread und nicht das Progamm ;-)

[ak1]

Bin totaler Thread-Anfänger und habe da ein Problem:

Die beiden Threadklassen:

Code:

type TStartThread = class(TThread)
  private
  protected
    procedure Execute;override;
  end;

  type TwaitThread = class(TThread)
  private
  protected
    procedure Execute;override;
  end;

Auf Knopfdruck werden beide Threads durchgeführt:

Code:

starten:= TStartThread.Create(true);

      with starten do begin
        Execute;
        resume;
      end;

      warten:=TWaitThread.Create(true);
      with warten do begin
        Execute;
        resume;
      end;

die Execute Prozeduren sehen so aus:

Code:

procedure TwaitThread.Execute;
begin
      sleep(6000);
      frmwait.Repaint;
end;

procedure TStartThread.Execute;
begin
  berechne;
end;

Jetzt habe ich das Problem, dass die Form (frmwait) nicht alle 6 Sekunden neu gezeichnet wird.
Was müsste ich noch machen, damit wirklich alle 6 sekunden ein repaint gemacht wird, während die Berechnung der prozedur "berechne" läuft?
Es wird in beiden Threads auf VCL-Komponenten zugegriffen.

[Luckie]

Zitat:

Zitat von MathiasSimmack

Und wenn in der Zwischenzeit mit dem Programm noch gearbeitet werden (können?) soll?

Ich rede natürlich von dem Thread. :roll:

@

[ak1]

Kann mir denn niemand helfen?

[MathiasSimmack]

Ich habe mich gerade mit einem Thread herumgeschlagen, aber der war nonVCL.

[Ultimator]

Wenn du warten willst, und trotzdem weiterarbeiten musst, dann nimm das hier:

Delphi-Quellcode:

procedure Wait(time:word); 
var start: integer; 
begin 
start := GetTickCount; 
while GetTickCount - start <= time do 
Application.ProcessMessages; 
end;