Zitat von dominikkv:

Lösung: TTimer im Hauptthread erstellen und im OnTimer den Workthread informieren (zB über Messages)

TTimer war, so hatte ich den TE verstanden, nur ein Beispiel. Einen Timer im Thread zu verwenden ist doch eh recht selten und wenn dann kann man da auch recht einfach auf die WinAPI zurückgreifen. Die bietet ja neben der Verwendung von Messages auch noch den direkten Aufruf einer Funktion an. Aber hier geht es auch um andere Komponenten.
Was tatsächlich wichtig ist, ist die Tatsache, dass allocatehwnd nicht threadsafe ist. Das ist ja nicht nur für TTimer wichtig sondern generell für simple Messageschleifen in einem Thread. Also baut man sich mittels CreateWindow das Fenster selbst, oder versucht auf Messages zu verzichten und lieber mit Events zu arbeiten.

Genau, es ist nur ein Beispiel.
Es geht mir vor allem um eigene Objekte mit eigenen Events.
Aber soweit ich das mit Messages verstanden habe übergebe ich dem Objekt bei der Erstellung die ThreadID und sende dann meine eigenen Nachrichten (WM_USER + x).
Oder belege (wie dominikkv vorgeschlagen hat) das Ereignis mit PostThreadMessage. Ich muss nur darauf achten dass die Parameter threadsicher gespeichert werden (der Workthread soll ja mehr als nur ein NotifyEvent bekommen).

Das Thema ist schon etwas älter aber ich habe es so gelöst:

markieren

Code:

constructor TBThread.Create;
begin
  inherited Create(true);
  FTerminateEvent := CreateEvent(nil, true, False, nil);
end;

destructor TBThread.Destroy;
begin
  SetEvent(FTerminateEvent);
  CloseHandle(FTerminateEvent);
  inherited;
end;

procedure TBThread.Execute;
begin
  while not Terminated do
  begin
      if WaitForSingleObject(FTerminateEvent, fcint) = WAIT_TIMEOUT then
    begin
      if not Terminated then
        DoSomething;
    end;
  end;
end;

procedure TBThread.TerminatedSet;
begin
  inherited;
  SetEvent(FTerminateEvent);
end;

fcint ist die Zeit die der Thread warten soll.
Und durch dass Event welches durch die überschriebene Methode TerminatedSet gesetzt wird wird das warten vorzeitig beendet.

Zitat von Stefan1286b:

Das Thema ist schon etwas älter aber ich habe es so gelöst:

markieren

Code:

constructor TBThread.Create;
begin
  inherited Create(true);
  FTerminateEvent := CreateEvent(nil, true, False, nil);
end;

destructor TBThread.Destroy;
begin
  SetEvent(FTerminateEvent);
  CloseHandle(FTerminateEvent);
  inherited;
end;

procedure TBThread.Execute;
begin
  while not Terminated do
  begin
      if WaitForSingleObject(FTerminateEvent, fcint) = WAIT_TIMEOUT then
    begin
      if not Terminated then
        DoSomething;
    end;
  end;
end;

procedure TBThread.TerminatedSet;
begin
  inherited;
  SetEvent(FTerminateEvent);
end;

fcint ist die Zeit die der Thread warten soll.
Und durch dass Event welches durch die überschriebene Methode TerminatedSet gesetzt wird wird das warten vorzeitig beendet.

Ich merke gerade ich habe die Antwort für den falschen Eintrag geschrieben. SORRY.
https://www.delphipraxis.net/128591-...r-timer-3.html