Hallo,

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

Gruß

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

Schick ihn für 60 Sekunden schlafen mit Sleep.

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.

Ich denke Luckie meint den Thread und nicht das Progamm

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

Die beiden Threadklassen:

markieren

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:

markieren

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:

markieren

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.

Zitat von MathiasSimmack:

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

Ich rede natürlich von dem Thread.

@

Kann mir denn niemand helfen?

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

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

markieren

Delphi-Quellcode:

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