mettre le focus sur un TEdit dans un TabControl

Version imprimable

18/09/2018, 08h13
SergioMaster

mettre le focus sur un TEdit dans un TabControl

Bonjour,

c'est plus une question langage qu'autre chose mais comme il y a FMX en jeu, et que le comportement du changement d'onglet semble différent de VCL, je préfère poser dans ce forum.

Comment, lors d'un changement d'onglet (tab) puis-je mettre le focus sur un élément particulier de la page ?
par exemple : j'ai une forme avec un tabcontrol contenant 1 à n pages, pages contenant toutes un à n TEdit. Je veux que au changement d'onglet le premier TEdit ait le focus.
18/09/2018, 09h47
Charly910

Bonjour,
je n'y connais rien en FMX, mais est ce que tu ne peux pas utiliser la propriété Tag du premier TEdit de chaque onglet (en les mettant de 0 à 9 et en cherchant le TEdit qui a le même numéro de Tag que celui de l'onglet, puis setFocus ...)

A+
Charly
18/09/2018, 10h10
SergioMaster

Bonjour,
Merci de t'y pencher mais ...
Avant de poster j'ai bien sûr essayer ce genre de chose tag= ou même tagstring='mettrefocus' , je pensais ainsi pouvoir faire une recherche dans les enfants de la page

ou aussi des choses comme TEdit(Bureau.ActivePage.Container.Children[0].Children[0]).SetFocus qui fonctionne parfaitement si je met ce code dans un bouton hors tabControl (le TEdit étant contenu dans un TLayout c'est pour cela qu'il y a 2 Children[])
Nota : Bureau est un TMSFMXPageControl, je n'ai pas réussi à utiliser la même syntaxe avec un TTabControl (pas de container) mais je désespère pas ...

Comme j'ai mis ce bouton, j'ai même tenté de coder le OnChangepage du pagecontrol avec un appel à ce code , rien ne se passe comme si la page n'était pas encore active au moment du onChange << c'est là le nœud du problème et comme il n'y a pas de AfterChange :aie:
A noter, que même en VCL, mes tentatives ont été infructueuses

J'ai même fait des tentatives avec des FindComponent mais alors là c'est pire ! j'ai du mal avec cette fonction entre TFMXObject et TComponent je m'y perd

Bonjour Sergio,

J'ai fait un petit essai avec un TabControl ayant 3 TabItem et chaque onglet contient 2 TEdit.

J'ai implémenté le code suivant dans l'événement OnChange du TabControl :
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.TabControl1Change(Sender: TObject); begin if TabControl1.TabIndex <> -1 then begin case TabControl1.ActiveTab.Index of 0: edit1.SetFocus; 1: edit3.SetFocus; 2: edit5.SetFocus; end; end; end;
En changeant d'onglet, le premier TEdit de l'onglet ne prend pas le focus. En revanche, en modifiant à false la propriété CanFocus de chaque TabItem ça fonctionne.

18/09/2018, 10h39
anapurna

salut

le mieux serais peut etre de déplacer ton code dans le tabsheet et pas dans le TabControl
allez soyons fou, peut être même dans le onshow du tabsheet
ensuite dans ton layout met la propriété TabOrder à 0 sur l'objet que tu veut activer en premier
de cette manière ce seras le premier composant avec le focus
18/09/2018, 11h40
SergioMaster

1 pièce(s) jointe(s)
@gbegreg
Merci Gregory, intéressant ce CanFocus du tabset, j'ai testé mais ... plouf (du moins avec TMSFMXPageControl)
Pour ce qui est de la partie
Code:

1 2 3 4 5 6 7 if TabControl1.TabIndex <> -1 then begin case TabControl1.ActiveTab.Index of 0: edit1.SetFocus; 1: edit3.SetFocus; 2: edit5.SetFocus; end;
Oui mais ... en fait, cela fait suite à mes posts sur le "docking de formes", mes pages sont crées "dynamiquement" ce qui fait que ma forme principale ne connait pas "Edit1, Edit3, Edit5" d'où mon utilisation des Children(s)

A vous deux, j'ai bien sûr vérifié les ordres de tabulation

@Anapurna (grande montagne), je n'ai pas tout compris de ton raisonnement mais je vais être fou, comme d'habitude lorsque je bute sur un problème, je fais une petite application à côté avec juste les points qui bloquent au prochain post je joindrai le zip, et encore plus fou je vais le faire avec un TTabcontrol pour qu'il n'y ait pas de soucis côté testeurs (s'il y en a)

En attendant, pour vous donner une image plus "parlante" , l'objectif est de créer un programme pour le futur magasin d'usine (j'ai quand même caché son cartouche ;), le prix "farfelu" )
la saisie se faisant en priorité au lecteur codes barres vous comprendrez pourquoi je veux mettre le focus sur la zone "article"
Pièce jointe 412731
Bien sûr je me casse peut être la tête pour rien, le plus souvent il n'y aura certainement qu'un seul onglet Vente mais maintenant que je suis engagé dans cette voie ...

Le TabOrder aurait comme pour Anapurna ma préférence

Si tu veux le traiter de façon très objet, pourquoi ne pas faire une Interface ISMDockingForm
Tes formes créés dynamiquement implémente cette interface (ou pas, utilise Supports)
ISMDockingForm contient une méthode StartFocus() pour retomber dans le code de gbegreg

Si tes fenêtres ont déjà une classe ancêtre non TForm, cela s'ajoute aussi
Code:

1 2 3 4 5 6 7 8 procedure TForm1.TabControl1Change(Sender: TObject); var Intf: ISMDockingForm; begin if TabControl1.TabIndex <> -1 then if Supports(FDockedForms[TabControl1.ActiveTab], Intf, ISMDockingForm) then Intf.StartFocus(); end;
FDockedForms est une TObjectList<TTabSheet, TForm> gérant la liste des fenêtres instanciées.
Lorsque tu fais NewForm.Parent := TS1; tu ajoutes DockedForms.Add(TS1, NewForm);, mais peut-être que ActivePage.Container suffit, je ne connais pas assez FMX
Code:

1 2 3 4 5 6 7 8 procedure TForm1.TabControl1Change(Sender: TObject); var Intf: ISMDockingForm; begin if TabControl1.TabIndex <> -1 then if Supports(TabControl1.ActiveTab.Container, Intf, ISMDockingForm) then Intf.StartFocus(); end;

18/09/2018, 14h41
SergioMaster

Re,

@ShaiLeTroll la liste d'objet c'est un peu mon principe, j'ai utilisé un simple TDictionnary<String,TForm> moins sophistiquée que ta proposition de TObjectList<TTabSheet,TForm> et pas pensé au if Supports(....) parce que, pour l'instant un seul type de TForm est permis

je n'avais pas pensé par contre à mettre une procédure StartFocus, beaucoup plus simple que mes Chidren[0].Children[1] que je n'aimais pas.

Par contre, est-ce du à FMX ? c'est au niveau du onChange que ça coince , ce qui est incroyable c'est que si je clique sur le bouton [Button1] le focus se fait correctement :arf:

1 pièce(s) jointe(s)

Un mieux

Bon, j'avance pour ceux qui ne veulent pas ouvrir le zip

en voici une réduction du code "principal"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
procedure TMain.BureauChange(Sender: TObject);
var Acomponent : TComponent;
    i : Integer;
begin
memo1.Lines.Add('Page '+Bureau.TabIndex.ToString);
case Bureau.TabIndex of
 0 : Edit1.SetFocus;
 1 : Edit2.SetFocus;
 2 : Edit3.SetFocus;
 else begin
      // simplissime  
       TChild(Ft).StartFocus;
      // Sinon 
      // la partie "bourrin"
      // Bureau.ActiveTab.Controls[1] contenu de la page (le container de TTMSFMXPageControl ?)
      // Bureau.ActiveTab.Controls[1].Controls[0] le TRectangle qui contient les divers composants (dans ma question de départ c'est un TLayout mais je me suis
     //  amusé à changer la couleur pendant mes tests   
     {   for I := 0 to Bureau.ActiveTab.Controls[1].Controls[0].ControlsCount-1 do
          begin
           if (Bureau.ActiveTab.Controls[1].Controls[0].Controls[i].ClassName='Edit1') then // bien sur d'autre tests sont possibles
            begin
              TEdit(Bureau.ActiveTab.Controls[1].Controls[0].Controls[i]).SetFocus;
              Break;
            end;
          end;
      end;}
 end;
end;
end;

Donc, ça ça fonctionne pour TTabcontrol (en faisant très attention aux CanFocus des onglets)
Plus simple, la suggestion de ShaiLeTroll avec la procedure StartFocus :ccool:

Reste à tester la même chose avec TTMSFMXPageControl

salut

bon cela a bien changé depuis la vcl ^^

tu a un evenement dans le tabitem qui est onactivate
met avis que tu pourrait peut etre mettre ton code dans cette methode

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TMain.AddPageClick(Sender: TObject);
var F : TChild;
    ATabItem : TTabItem;
begin
  if Assigned(ft) then exit;
 
  F:=TChild.Create(Self);
  Ft:=F;
  ATabItem:=Bureau.Add();
  ATabItem.Text:=Format('Tab %d',[Bureau.TabCount]);
  ATabItem.CanFocus:=False;
  ATabItem.AddObject(F.Layout1);
  ATabItem.OnActivate := doactivate;
end;
 
procedure TMain.doactivate(sender : tobject);
begin
var
  Intf: ISMDockingForm;
begin
   if Supports(FDockedForms[sender as TTabItem], Intf,  ISMDockingForm) then   
      Intf.StartFocus();
end;

18/09/2018, 18h28
SergioMaster

Citation:

Envoyé par anapurna

bon cela a bien changé depuis la vcl ^^

Ben oui , et encore c'est sans LiveBindings ni Style

Citation:

tu as un evenement dans le tabitem qui est onactivate

Euh tu es sur de toi ? je dois être bigleux
19/09/2018, 09h38
anapurna

salut

bin comment te dire ...
le plus simple regarde ici
tu verra que j'invente rien ;)
19/09/2018, 10h00
SergioMaster

1 pièce(s) jointe(s)

Citation:

Envoyé par anapurna

bin comment te dire ...

Que je devais être très fatigué en fin de journée

Citation:

tu verras que j'invente rien ;)

Oui elle est bien dans la doc mais pas là ! d'où ma confusion
Pièce jointe 412994

Re,

Pour ce qui est du TMSFMXPageControl j'ai vraiment été cherché des chemins détournés pour arriver au même résultat !

le OnPageChange ne semblait pas fonctionner correctement (je pense peut être le signaler à TMS, en tout cas la question est déjà posée dans leur forum)
j'ai trouvé une solution de contournement que je trouve "tirée par les cheveux" (ce qui me fait de la peine car je déplume ! chauve qui peut)
J'ai utilisé l'évènement OnAfterDrawTabBackground (qui, hélas est bien trop souvent lancé)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 procedure TMain.BureauPageAfterDrawTabBackground(Sender: TObject; AGraphics: TTMSFMXGraphics; ATabIndex: Integer; ARect: TRectF; AState: TTMSFMXTabSetTabState); begin if (ATabIndex= BureauPage.ActivePageIndex) // and BureauPage.IsFocused then begin // Debugmemo.Lines.Add('Drawtab '+Atabindex.tostring); ChangeFocus(ATabIndex); // cette procédure remplaçant un appel à BureauPageChangePage(Sender,0,0) end; end; {procedure TMain.BureauPageChangePage(Sender: TObject; APreviousPageIndex, ACurrentPageIndex: Integer); begin //DebugMemo.Lines.Add('Page '+BureauPage.ActivePageIndex.ToString); case BureauPage.ActivePageIndex of 0 : Edit1.SetFocus; 1 : Edit2.SetFocus; 2 : Edit3.SetFocus; else begin TChild(FP).StartFocus; DebugMemo.Lines.Add('StartFocus'); end; end; end;} procedure TMain.ChangeFocus(Index : Integer); begin case Index of -1 :; 0 : Edit1.SetFocus; 1 : Edit2.SetFocus; 2 : Edit3.SetFocus; else begin TChild(FP).StartFocus; end; end; end;

19/09/2018, 11h31
anapurna

Salut

l'image c'est un Ttabcontrol et pas un Ttabitem ^^
c'est pour bientôt les vacances ?
je parle bien des fiches interne du tabcontrol et pas du parent
par principe j'essais d'appliquer les actions au plus prés de ceux que cela concerne
l'affichage de ton layout ne concerne pas directement le tabcontrol mais bien le tabitem qui est son parent direct
19/09/2018, 11h53
SergioMaster

Citation:

Envoyé par anapurna

l'image c'est un Ttabcontrol et pas un Ttabitem ^^

Oui, j'avais bien saisi

Citation:

c'est pour bientôt les vacances ?

On en a jamais assez, je vise les très grandes vacances (retraite) mais avoir travailler à l'étranger me la repousse à 67 ans sauf si ....

Citation:

je parle bien des fiches interne du tabcontrol et pas du parent
par principe j'essaye d'appliquer les actions au plus prés de ceux que cela concerne
l'affichage de ton layout ne concerne pas directement le tabcontrol mais bien le tabitem qui est son parent direct

une fois les réglages de canfocus, l'ajout de la procédure suggérée par ShaileTroll etc... le TTabControl ne me posait plus de soucis. (Post #9)
J'ai tenté ton TTabControl.tabItem.onActivate mais le onChange fonctionnant, je n'ai pas trop vu le besoin.

Par contre avec l'équivalent TMS soit le TMSFMXPageControl (ma finalité, cf mon image écran post #6) pas de onActivate ou alors très/trop bien caché