FMX-Android - Kein Hinweis "busy" möglich?

[dynamo]

Zitat von shebang:

Eine Möglichkeit wäre das Verschieben der Arbeit in einen anonymen Thread.

Ja, das funzt bedingt: Der Hinweistext erscheint sofort, und die CreateDatas-Procedure wird auch durchlaufen. Soweit alles gut! Aber wenn die procedure fertig ist, erscheint kein Hinweis: "fertig". Wie krieg ich das noch hin? Der lbl_hinweis.Text bleibt bei 'erzeuge lokale Daten ...' stehen.

[Rollo62]

Versuch mal den Synchronize durch Queue zu ersetzen, das ist in der Regel unkritisch

Delphi-Quellcode:

    TThread.Synchronize(nil, procedure 

    TThread.Queue(nil, procedure

[dynamo]

Zitat von Rollo62:

Versuch mal den Synchronize durch Queue zu ersetzen, das ist in der Regel unkritisch

Das hatte ich auch schon versucht. Es bleibt dabei: lbl_hinweis.text erscheint sofort und createLocalDatas wird durchlaufen, aber der Hinweistext bleibt danach stur erhalten. Ich hatte auch schon versucht, am Ende der createLocalDatas-procedure einen 2. Thread zu machen, in dem der Hinweistext wieder verschwinden soll - Pustekuchen! Ich's auch schon mit ITask versucht:

Delphi-Quellcode:

procedure TForm1.btn_createLocalDatasClick(Sender: TObject); // Aufruf aus dem Menü
var aTask: ITask;
begin
  lbl_hinweis.Text := 'erzeuge lokale Daten...';
  aTask := TTask.create(
  procedure
  begin
    createLocalDatas;

    TThread.Queue(nil, // oder .synchronize(nil ...
            procedure
            begin
              lbl_hinweis.Text := 'fertig';
            end);

  end);
  aTask.Start;
end;

Hat leider auch nichts gebracht. Es ist zum Verzweifeln!

[Rollo62]

Bist Du sicher dass nichts Anderes den lbl_hinweis.Text wieder zurücksetzen kann ?
Funktioniert das Label wenn //createLocalDatas; auskommentiert ist ?
Wenn der Debugger bis zum lbl_hinweis.Text := 'fertig'; kommt, sollte es eigentlich funktionieren.
Wird irgendwo bei Dir im Code Application.ProcessMessages; verwendet ?

[dynamo]

Zitat von Rollo62:

Wird irgendwo bei Dir im Code Application.ProcessMessages; verwendet ?

Verdammt! Das hatte sich in der Procedure CreateLocalDatas doch tatsächlich noch versteckt!
ich habe Application.ProcessMessages; rausgenommen, und jetzt funktioniert's.
Vielen Dank für den entscheidenden Tipp.
Es funktioniert sowohl mit TThread.synchronize(... als auch mit TThread.Queue(...