Ist die Verwendung von TTask so korrekt?

[HolgerX]

Hmm..

Wer lesen kann ist im Vorteil!

Zitat von t.roller:

Zitat von HolgerX:

Sprich, dass wenn Du z.B. auf einem Button.Click eine laaaaannngggeee Verarbeitung machts, dann ist die Oberfläche gesperrt. Selbst Aktualisierungen werden ohne ProzessMessages nicht mehr auf z.B. Edits angezeigt.

Das ist falsch.

Füge doch meinem Beispiel in #10
das hinzu:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
Button3.Tag:= Button3.Tag +1;
Label4.Caption:= INTTOSTR(Button3.Tag);
end;

Das bleibt bedienbar.

Ich schrieb:

Zitat:

Sprich, dass wenn Du z.B. auf einem Button.Click eine laaaaannngggeee Verarbeitung machts, dann ist die Oberfläche gesperrt. Selbst Aktualisierungen werden ohne ProzessMessages nicht mehr auf z.B. Edits angezeigt.

Platziere auf einer Form ein Memo und einen Button!
Packe dies ins Button Click rein:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add('Begin');
  Sleep(10000);
  Memo1.Lines.Add('Finish');
end;

Und beobachte!!!!

Was passiert..

Button Click -> 10 Sekunden lang nichts und dann kommt direkt 'Begin' und 'Finish'.

Während der 10 Sekunden kannste auf der Form versuchen, was Du willst, es klappt nichts..

Wieso, weil der Button.Click im MainThread läuft und die Acktualisierung erst erfolgt, wenn die Procedure fertig ist!

Wenn Du nun in einem Separaten Threat ( TTask,TThreat..) das Sleep machst, dann kannste die Form weiter bedienen.

Jedoch kümmert sich weder TTask noch TThread um Sync..

Jeder Zugriff aus einem Separaten Thread mit gesynct werden! Sei es durch Synchronize(), Mutex, CriticalSection oder ähnliches. Selbst bei Verwendung von SendMessage würdest Du eine Sync-Routine verwenden, nur gekapselt durch Windows...