Button gibt sich selbst bei klick frei

[himitsu]

Entweder verzögert löschen.
Timer oder siehe TForm.Release

Oder den nachfolgenden Code überspringen.
Abort

[QuickAndDirty]

Also es gibt keine MessageQueue mehr?

Abort hört sich gut an. Das funktioniert bei Datenbanken ja auch.

Gibt es sowas wie Release für alle GUI objekte? Weil ein ListItem ist ja nun keine TForm.

Edit:
Jo es gibt ein Release für TListitem, gleich mal testen

Edit2:
Release scheint zu funktionieren. Vielen Dank!

Edit3: Realease scheint wohl nur unter Windows zufunktionieren.

[QuickAndDirty]

Zitat von himitsu:

Entweder verzögert löschen.
Timer oder siehe TForm.Release

Oder den nachfolgenden Code überspringen.
Abort

"Abort" würde auf Android erstmal funktionieren. Es ist eine komische Lösung.

Das "Freigeben" passiert in einer Refresh Methode die halt erst alles abräumt und dann alles neu lädt...die selbe Methode benutze ich beim erstellen des Formulars.
Ich wünschte es gäbe einen offiziellen weg sowas anzuschieben ohne Abort.

[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

[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;