Button gibt sich selbst bei klick frei

[QuickAndDirty]

Zitat von himitsu:

TThread-Queue führt nichts verzögert aus, wenn es im Hauptthread aufgerufen wird ... man müsste erst einen anderen Thread starten ud dann darin das Queue aufrufen

Ok. Deswegen hat es nicht geklappt.
Wäre die Methode zu bevorzugen?
1.Thread erzeugebn der dazu bestimmt ist die Oberfläche(Zwei TlistViews) neuzuladen.
2.Thread ausführen.
3.Im Thread Synchronisation mit Hauptthread auslösen durch Übergabe der Reload methode an TThread.Queue(nil,Reload);

Wieso hat das alles unter Delphi XE8 geklappt? Gab es da die Touch-Animationen noch nicht?

[QuickAndDirty]

Hab in meiner "commonfunctions" unit folgendes gebaut

Delphi-Quellcode:

TQThread = Class(TThread)
private
Public
  ThreadMethod:TThreadMethod;
  Procedure Execute;Override;
end;
Procedure QueueMethod(aThreadMethod:TThreadMethod);

implementation


Procedure QueueMethod(aThreadMethod:TThreadMethod);
var aThread:TQThread;
Begin
  aThread := TQThread.Create(true);
  aThread.FreeOnTerminate := True;
  aThread.ThreadMethod := aThreadMethod;
  aThread.Resume;
End;


{ TQThread }

procedure TQThread.Execute;
var i,j :integer;
begin
  For i := 0 to 10 do j := j+1;// Damit der Kompiler die Zeile darunter nicht wegoptimiert.
  TThread.Queue(nil,ThreadMethod);
end;

Rufe das wie folgt auf

Delphi-Quellcode:

procedure TAuswahlView.Reload;
begin
  QueueMethod(self.InternalReload);
end;

Funktioniert erschreckend gut. Bis jetzt. Werde es mal auf weitere bereiche ausdehnen und testen.Vielleicht funktioniert dann wieder alles wie es soll.

[Der schöne Günther]

Zitat:

Damit der Kompiler die Zeile darunter nicht wegoptimiert

Was

[himitsu]

Wegoptimieren wird er das nicht. Sooooo schlau ist der nun auch nicht, daß er den Thread drumrum einfach weglässt.

Pssst: http://www.delphipraxis.net/179193-t...der-queue.html -> siehe Antwort #9 und hier nochmal die Kurzfassung davon:

Delphi-Quellcode:

TThread.CreateAnonymousThread(procedure
  begin
    Queue(AThread, procedure
      begin
        // mach hier irgendwas verzögert
      end);
  end).Start;

[Der schöne Günther]

Wahrscheinlich hat er in der Debug-Fassung keinen Haltepunkt da Inlining nicht deaktiviert wurde und der Compiler das inlined?

[QuickAndDirty]

Zitat von Der schöne Günther:

Wahrscheinlich hat er in der Debug-Fassung keinen Haltepunkt da Inlining nicht deaktiviert wurde und der Compiler das inlined?

hm Der halte punkt war halt beim kompilieren weg(grün) .

[QuickAndDirty]

Zitat von himitsu:

Wegoptimieren wird er das nicht. Sooooo schlau ist der nun auch nicht, daß er den Thread drumrum einfach weglässt.

Pssst: http://www.delphipraxis.net/179193-t...der-queue.html -> siehe Antwort #9 und hier nochmal die Kurzfassung davon:

Delphi-Quellcode:

TThread.CreateAnonymousThread(procedure
  begin
    Queue(AThread, procedure
      begin
        // mach hier irgendwas verzögert
      end);
  end).Start;

Ich mache wirklich alles im Hauptthread.... hab erst recht spät erkannt das es da noch an anderen Stellen Probleme gibt...wenn Sachen länger dauern...da steht noch ein größerer Umbau an. Ich wollte es halt möglichst leicht zu debuggen haben...

Queue funktioniert also bei mir bis her wie erwartet. Danke!

[Mavarik]

Die Lösung hierfür heißt OnIdle...

Ich habe mir hierfür eine eigene FreeAndNIL -> ArcFreeAndNil -> KillLater geschrieben....

[QuickAndDirty]

Theoretisch wäre wohl sowas wie ein JobScheduler das richtige, welcher dann alles was man Queued in Application.OnIdle ausführt.Aber ich hab jetzt erstmal die Thread Geschichte.