aktuellen Focus eines TEdit verlieren (Android / iOS)

[Stewag]

Moin, der letzte Beitrag zu diesem Thema war aus 2018:
https://www.delphipraxis.net/197935-...-loeschen.html

Seit 10.x scheint sich am Verhalten unter Android wieder etwas verändert zu haben.
Habe verschiedene Möglichkeiten ausprobiert, u.a. diesen Code:

Code:

procedure TfMain.TabControl1Gesture(Sender: TObject;
  const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
 if Assigned(Focused) then
  begin
    if Focused.GetObject is TEdit then
      Handled:=true;

    if Handled then
      SetFocused(nil);
  end;
end;

... klappt aber nicht.

Hat jemand eine Idee?

[Delphianer111]

Hallo,

vielleicht hilft dir diese Funktion weiter

TControl.ResetFocus

[Stewag]

... leider nein, hatte ich auch schon probiert.

Code:

 ActiveControl.ResetFocus;

[Rollo62]

Also ich nutze Gestures immer nur mit den entsprechenden Begin/End Flags, TInteractiveGestureFlag.gfBegin in EventInfo.Flags, um irgendwelche wilden Events zu vermeiden.
https://stackoverflow.com/questions/...an-or-igirotat
http://steema.com/wp/narcis/category/android/

[Redeemer]

Oder das hier?

Delphi-Quellcode:

Control.Enabled := False;
Control.Enabled := True;

[himitsu]

In der VCL kann man auch einfach

Delphi-Quellcode:

{Self.}SetFocus;

machen,
also die Form fokussieren, womit der Fokus vom Edit weg geht. (k.A. ob es auch im FMX so geht)

Würde man dort den Fokus auf 0/nil setzen, dann würde die ganze Anwendung den Fokus verlieren und sie verschwindet im Hintergrund (nächste Anwendung bekommt den Fokus und kommt hoch)

Delphi-Quellcode:

Winapi.Windows.SetFocus(0);

[Stewag]

Code:

Delphi-Quellcode:
Control.Enabled := False;
Control.Enabled := True;

geht leider auch nicht, führt zu einer Zugriffsverletzung.

[Stewag]

Zitat:

In der VCL kann man auch einfach {Self.}SetFocus; machen,
also die Form fokussieren, womit der Fokus vom Edit weg geht. (k.A. ob es auch im FMX so geht)

geht nicht in FMX

[ZYLAGON]

Ich würde einfach den Fokus auf ein anderes Element setzen.
Dann ist es vom Edit weg.

VG ZYL

[Stewag]

Zitat:

Ich würde einfach den Fokus auf ein anderes Element setzen.
Dann ist es vom Edit weg.

Nicht einmal das habe ich unter Android mit Edit1.SetFocus oder ActiveControl:= Edit1 hinbekommen:?

[Stewag]

... hiermit hat es dann endlich geklappt: https://stackoverflow.com/questions/...cursor-appears

Code:

begin
    TThread.CreateAnonymousThread(
      procedure
      begin
        TThread.Synchronize( nil,
          procedure
          begin
            Edit1.SetFocus;
          end
        );
      end
    ).Start;
  end;

:-D

[himitsu]

:?:

Code:

begin
    TThread.ForceQueue(nil, 
      procedure
      begin
        Edit1.SetFocus;
      end);
  end;

[Stewag]

Code:

begin
    TThread.ForceQueue(nil,
      procedure
      begin
        Edit1.SetFocus;
      end);
  end;

worin liegt der Vorteil?

[himitsu]

* es ist kürzer
* es ist übersichtlicher
* es geht direkt "verzögert" ins Synchronize, ohne erst einen Thread zu erstellen
* ...

ForceQueue ist der Bugfix für Queue, was aber im Hauptthread aufgerufen nicht in die Queue schiebt, sondern direkt ausführt, auch wenn es (nicht) so heißt.

[Stewag]

Code:

begin
    TThread.ForceQueue(nil,
      procedure
      begin
        Edit1.SetFocus;
      end);
  end;

... geht!

Danke Himitsu! :-D

Es geht sogar ResetFocus:

Code:

begin
    TThread.ForceQueue(nil,
      procedure
      begin
         ActiveControl.ResetFocus;
      end);
  end;

[Redeemer]

Zitat:

Zitat von himitsu (Beitrag 1538589)

ForceQueue ist der Bugfix für Queue, was aber im Hauptthread aufgerufen nicht in die Queue schiebt, sondern direkt ausführt, auch wenn es (nicht) so heißt.

ForceQueue queuet also nur manchmal. Ergibt Sinn.

[himitsu]

Ja Neee, nicht ganz.
Das ist IMHO ein "Bug" beim TThread.Queue.

Da steht im Code sowas wie

Delphi-Quellcode:

IF istMainThread THEN machJetzt else machSpäter;

,
aber anstatt diesen Schwachsinn zu entfernen und den Fehler ordentlich zu beheben, wurde eine neue Funktion TThread.ForceQueue dafür erfunden.

Also prinzipiell genauso ein Scheißdreck, wie das .DisposeOf, als Bugfix, weil .Free in den mobilen Platformen "garnichts" macht.

[Redeemer]

Ach dann hab ich dich missverstanden. Dann ergibt der Name ja doch Sinn.

Du bezogst dich mit "ForceQueue ist der Bugfix für Queue, was aber im Hauptthread aufgerufen nicht in die Queue schiebt, sondern direkt ausführt, auch wenn es (nicht) so heißt."
auf Queue und nicht auf ForceQueue.