Aktion im Hintergrund wiederholen [TObject]

[Neutral General]

Mir is leider kein besserer Titel eingefallen.
Ich habe eine Klasse von TObject abgeleitet.
Nun soll eine Eigenschaft alle paar Sekunden neu gesetzt werden.
Timer geht nicht weil es eine einzelne Unit ohne Formular und so ist.
Ich habs jedenfalls versucht und es ging nicht.
Gibt es da irgendeine Lösung ?
Bei allen Controls wird Paint ja auch dauernd ausgeführt. Das muss doch auch mit jeder anderen procedure gehen :gruebel:

[Dax]

Paint wird nur ausgeführt, weil Windows eine WM_PAINT-Message an das Control sendet. Nimm dir doch einen Thread, der belastet das System kaum und dein Programm friert nicht ein. Denn: Wenn du keine Timer haben willst, musst du immer irgendwie mit Sleep() oder ähnlichen Funktionen arbeiten, was dein Programm zum Stillstand bringt.

[Neutral General]

Hab noch nie was mit Threads gemacht und ich weis auch überhaupt nicht wie die funktionieren.. :roll:
Könntest du mirs kurz erklären + Beispiel ? :mrgreen:

[Dax]

Ein Beispiel :mrgreen:

Delphi-Quellcode:

uses ... Classes, Windows, ...;

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

{...}

implementation

{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure TMyThread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ TMyThread }

procedure TMyThread.Execute;
begin
  { Schreibe hier deinen Code Rein ;-) }
  Sleep(1000); // damit der Code nur jede Sekunde ausgeführt wird
end;

PS: Dieses "Beispiel" stammt direkt aus der Delphi-IDE :tongue:

[Neutral General]

Den hab ich mir mittlerweile auch angeschaut aber erst mit deiner Erklärung verstanden ;)
Das heißt also sobald Execute ausgeführt ist wird die procedure dauernd wiederholt ?
Ja ? Ja ??? Das wäre die Lösung :)