Aktuellen Focus verlieren oder löschen

[knaeuel]

Folgendes Problem:

Ich hab eine App-Bildschirmmaske mit einem TabControl mit 3 Seiten.
Das Blättern funktioniert unter anderem durch Wischen.

Auf jeder Seite gibt es Steuerelemente, die durch Schieben eingestellt werden können (Switches und Trackbars). Wenn nun ein Trackbar ein Stückchen verschoben wird, will die App neben dem gewünschten Verstellen der Komponente auch umblättern, weil es das Schieben für ein Wischen hält.

Also fange ich das ab. Wenn der Focus beim Auslösen einer Geste auf einem der Switch/Trackbar-Steuerelemente liegt, dann setze ich "Handled" auf "true" und schon blättert es nicht mehr um. Jetzt ruht der Focus allerdings auf einem Switch/Trackbar, was zur Folge hat, dass das Blättern nicht mehr funktioniert, weil es IMMER abgefangen wird.

Also will ich den Focus EINFACH NUR LÖSCHEN oder ersatzweise auf ein anderes Element legen.
Und genau das ist das Problem. Ich habe kein anderes Steuerelement auf dem Bildschirm, dass den Focus erhalten kann.

Vorraussetzungen dafür sind nämlich:
- Steuerelement hat die Eigenschaft "CanFocus"
- Steuerelement ist auf der aktuell sichtbaren Maske
- Steuerelement ist sichtbar

Ich kann also keinen unsichtbaren Dummy-Button oder ein Element von einem anderen Formular oder einer anderen Tab-Seite benutzen. :S

Delphi-Quellcode:

procedure TFormOptions.TabControl1Gesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
  //wir wollen die "blättern"-geste vermeiden, wenn der Focus auf dem Trackbar/TSwitch liegt,
  //damit beim Einstellen des Trackbars/TSwitchs nicht immer der Bildschirm gewechselt wird
  if Assigned(Focused) then
  begin
    //bei Trackbar-Verschiebung nicht durch die Tabs blättern
    if Focused.GetObject is TTrackbar then
      Handled:=true;

    //bei Switch-Bewegung nicht durch die Tabs blättern
    if Focused.GetObject is TSwitch then
      Handled:=true;

    if Handled then
    begin
      //zum Schluss Focus wegschicken, damit die Gesten nun wieder funktionieren

      //ClearFocus oder ReleaseFocus oder ForgetFocus wäre schön, gibts aber nicht

      //nur-lesen-eigenschaft: TTrackbar(Focused.GetObject).IsFocused:=false;

//funzt nicht, weil visible=false
//      if TabControl1.ActiveTab=TabItem1 then
//        SetFocused(ButtonFocusDummyPage1);
//      if TabControl1.ActiveTab=TabItem2 then
//        SetFocused(ButtonFocusDummyPage2);
//      if TabControl1.ActiveTab=TabItem3 then
//        SetFocused(ButtonFocusDummyPage3);
    end;
  end;
  if not Handled then
  begin
    case EventInfo.GestureID of
    sgiLeft:  ExecuteAction(NextTabActionPGOptions);
    sgiRight: ExecuteAction(PreviousTabActionPGOptions);
    end;
  end;
end;

Gibt es einen Trick, den Focus, der auf TSwitch oder TTrackbar liegt, loszuwerden?

Danke!

[EWeiss]

Zitat:

//ClearFocus oder ReleaseFocus oder ForgetFocus wäre schön, gibts aber nicht

Nö aber SetFocus(0)

gruss

[DeddyH]

Ja, unter Windows.

[EWeiss]

Zitat:

Zitat von DeddyH (Beitrag 1413635)

Ja, unter Windows.

Ach so wusste nicht das es nicht um Windows geht.

sorry dann weis ich auch nicht.

PS:
Und SetFocused(0); ?

gruss

[knaeuel]

cool, danke für die schnellen Antworten!

so wie es aussieht, ist

Delphi-Quellcode:

SetFocused(nil);

die Lösung!

Herzlichen Dank für die Tipps!

in Gänze sieht das also so aus:

Delphi-Quellcode:

procedure TFormOptions.TabControl1Gesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
  //wir wollen die "blättern"-geste vermeiden, wenn der Focus auf dem Trackbar/TSwitch liegt,
  //damit beim Einstellen des Trackbars/TSwitchs nicht immer der Bildschirm gewechselt wird
  if Assigned(Focused) then
  begin
    //bei Trackbar-Verschiebung nicht durch die Tabs blättern
    if Focused.GetObject is TTrackbar then
      Handled:=true;

    //bei Switch-Bewegung nicht durch die Tabs blättern
    if Focused.GetObject is TSwitch then
      Handled:=true;

    if Handled then
    begin
      //zum Schluss Focus wegschicken, damit die Gesten nun wieder funktionieren
      SetFocused(nil);
    end;
  end;
  if not Handled then
  begin
    case EventInfo.GestureID of
    sgiLeft: ExecuteAction(NextTabActionPGOptions);
    sgiRight: ExecuteAction(PreviousTabActionPGOptions);
    end;
  end;
end;

[EWeiss]

Ich habe mir schon gedacht das es auch so etwas in was auch immer du programmierst Windows, Android.. bla bla geben muss.
War mir nur nicht sicher was bei SetFocused verwendet wird.
Aber gut wenn es geht ;)

Lag ich doch nicht SOooo falsch.

gruss

[Redeemer]

Zitat:

Zitat von DeddyH (Beitrag 1413635)

Ja, unter Windows.

Das bezweifle ich. Bei VCL habe ich in einer TControl-Unterstützerklasse das hier:

Delphi-Quellcode:

procedure Blur();
begin
  if Enabled then
  begin
    Self.Enabled := False;
    Self.Enabled := True;
  end;
end;

Geht das besser (in VLC)?

[EWeiss]

Zitat:

Zitat von Redeemer (Beitrag 1413672)

Zitat:

Zitat von DeddyH (Beitrag 1413635)

Ja, unter Windows.

Das bezweifle ich. Bei VCL habe ich in einer TControl-Unterstützerklasse das hier:

Delphi-Quellcode:

procedure Blur();
begin
  if Enabled then
  begin
    Self.Enabled := False;
    Self.Enabled := True;
  end;
end;

Geht das besser (in VLC)?

Um was geht es dir hier?

Er wollte mir sagen das es SetFocus unter Windows gibt aber nicht unter Android.
Wo gibt es nun mit deiner Antwort einen Bezug zu Android? Und der Frage vom TE
Man muss verstehen was man liest.. aber keine bange mir geht es mitunter auch nicht anders.

Ich habe vorher auch nicht gewusst das es NICHT um Windows geht.

gruss

[TurboMagic]

Zitat:

Zitat von EWeiss (Beitrag 1413633)

Zitat:

//ClearFocus oder ReleaseFocus oder ForgetFocus wäre schön, gibts aber nicht

Nö aber SetFocus(0)

gruss

Ich hab' heute auch so etwas gebraucht und das hier gefunden:

FMX.Controls.TControl.ResetFocus

[EWeiss]

Zitat:

Zitat von TurboMagic (Beitrag 1414473)

Zitat:

Zitat von EWeiss (Beitrag 1413633)

Zitat:

//ClearFocus oder ReleaseFocus oder ForgetFocus wäre schön, gibts aber nicht

Nö aber SetFocus(0)

gruss

Ich hab' heute auch so etwas gebraucht und das hier gefunden:

FMX.Controls.TControl.ResetFocus

Dir ist aber klar das dieses Thema erledigt war oder?

Delphi-Quellcode:

SetFocused(nil);

gruss