Code vom Thread in einen Timer umziehen?

[stahli]

So würde ich es machen (XE3)...

Mit Events ist es noch besser strukturiert als mit Übergabe des Formulars.
Nachrichten verschicken ginge natürlich auch, aber das habe ich schon Jahre nicht mehr gemacht. :oops:

[Jim Carrey]

Bedrohung blockiert
Objekt: delphipraxis.net/attachments/....
Infektion:
Win32:Evo-gen [Susp]

:stupid:

Sieht aber interessant aus. Wusste ich gar nicht, dass das überhaupt so möglich ist.
Edit: da steht zwar "0x aufgerufen" aber ich habs runtergeladen und angeguckt.

[einbeliebigername]

Zitat:

Zitat von Jim Carrey (Beitrag 1352014)

Ich sagte doch das war einfach nur dahin geklatsch.

Manches geht aber auch dahingeklatsch nicht. Und manchmal sind die einfacheren Lösungen die besseren.

Zitat:

Zitat von Jim Carrey (Beitrag 1352014)

Zum Thema Delay und Thread, guck mal hier: Delay von negaH

Da steht was von wegen mit eigener Messagequeue. Du hast aber kein Thread mit Messagequeue. Ich hab noch nie einen Thread mit eigener Messagequeue unter den Fingern gehabt bzw. selbst gebaut. Bin aber, bis mich jemand vom gegenteil überzeugt, der Meinung das so ein Thread seinen eigenen Nachrichtenverarbeitungscode haben sollte.

Edit: Fehlendes [/QUOTE] eingefühgt.

[Jim Carrey]

Ist zwar offTopic aber... in Threads dann doch besser ein simples Sleep() verwenden?

[stahli]

Ich hatte noch das FreeOnTerminate vergessen, so dass der Thread nach Beendigung nicht freigegeben wurde:

Delphi-Quellcode:

constructor TArbeiterThread.Create(aMinValue, aMaxValue: Integer; aProgressInitEvent: TProgressInitEvent;
  aProgressStepEvent: TProgressStepEvent; aProgressCloseEvent: TProgressCloseEvent);
begin
  fMinValue := aMinValue;
  fMaxValue := aMaxValue;
  fProgressInitEvent := aProgressInitEvent;
  fProgressStepEvent := aProgressStepEvent;
  fProgressCloseEvent := aProgressCloseEvent;

  FreeOnTerminate := True; // <------------

  inherited Create(False);
end;

Ja, ein Sleep(1 oder höher) im Thread gibt anderen Prozessen auch mal die Möglichkeit, etwas auszuführen.
Sleep(0) prinzipiell auch, aber ich hatte dennoch schon den Effekt, dass die CPU mit 100% weiter lief.

[Jim Carrey]

Ich habe irgendwann angefangen negaH's Version zu verwenden, weil ich zu oft Fehler gemacht habe.
Mein letzter war eine while-Schleife im OnCreate etwa wie...

Delphi-Quellcode:

while True do Caption := IntToStr(Random(1234));

Das hat mir den Rechner fast zerlegt. Seitdem benutzte ich immer die Version mit ProcessMessages als Sicherung.