Ist die Verwendung von TTask so korrekt?

[Mavarik]

Zitat von Uwe Raabe:

Das ergibt aber überhaupt keinen Sinn. Zunächst ist mir TThread.Query völlig unbekannt. Sollte es sich dabei um TThread.Queue handeln, verlagerst du das Sleep ja wieder in den Hauptthread.

Klar, sorry Schreibfehler...

Der Sinn ist ganz einfach.

Bei einem Button Klick oder anderen User-Aktionen, starten diese im UI-Thread einen Timer der die Änderungen auf dem Bildschirm (Mouseover/Buttondown/ButtonUp usw.) anzeigt.

Über den TTask.Run starte ich meine Aktionen verzögert. Der Queue Befehl sorgt dafür, dass ich dem UI_Thread die Ausführung überlasse.

Wie gesagt der bessere Weg hierfür ist der OnIdleEvent!

Zitat von Uwe Raabe:

Ich hätte jetzt eher diesen Ansatz gewählt:

Delphi-Quellcode:

procedure TForm202.Button2Click(Sender: TObject);
begin
  TTask.Run(
    Procedure 
    begin
      Sleep(1000);
      TThread.Query(NIL,
        Procedure
        begin
          Caption := '42';
        end;
    end;      
end;

Logisch!!

Mavarik