Discussion :

[SergioMaster]

Bonjour,

Décidément , FMX + LiveBindings et moi cela doit faire plus de 3 .
Voilà mon soucis :
je veux créer une fiche avec une grille liée a une Table (ListePays) . Jusque là rien de plus simple .
cependant à la création de ma fiche , je veux que ma table soit positionnée sur un enregistrement précis (pas le premier)
et là c'est la catastrophe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ListePays.DisableControls;
  ListePays.Active:=True;
  ListePays.Locate('CODE_INT',VarArrayOf(['IT']),[]);
  ListePays.EnableControls;
  Showmessage(Inttostr(TMSFMXGrid1.ItemIndex));   // debug pour la position 
end;

la grille se remplie correctement mais l'enregistrement affiché comme sélectionné est le premier alors que l'item index indique bien le bon numéro et que des TEDit lié à la même source indiquent le bon enregistrement !

Note : une StringGrid 'classique' est ok

un bouton pour tester le même code , mais donc après création et affichage de la fiche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
begin
  ListePays.DisableControls;
  ListePays.Active:=True;
  ListePays.Locate('CODE_INT',VarArrayOf(['IT']),[]);
  ListePays.EnableControls; 
 Showmessage(Inttostr(TMSFMXGrid1.ItemIndex));
end;

produit le résultat souhaité

j'ai testé sur l'event onShow , onActivate etc... même résultat , je dois rater quelque chose

[Invité]

Bonjour Serge,

je ne me souviens plus bien de la liste des événements en FMX mais j'ai rencontré ce genre de problème en Lazarus sous Nux... En "Create": rien. Mais en "Show": OK. Pour le placement, il fallait que l'objet soit dessiné, la création n'étant pas suffisante... Je vois -après coup- que vous avez essayé dans le "Show"... Il faudrait peut-être reprendre toute la chronologie des événements un par un et jusqu'à ce que le code de composition/affichage de la Form "rende la main" et "atteigne" le focus, remplissage de la Grid inclus.... Et déplacer le code dans cette chronologie jusqu'à obtention du résultat. C'est comme cela que j'avais procédé pour différencier le comportement Windows/Linux avec Lazarus.

Bon maintenant l'analogie n'est peut-être pas pertinente.
Cordialement. Gilles

[SergioMaster]

Bonjour,

J'ai finalement posé la question à TMS que je doit féliciter pour sa réactivité , j'ai eu ma réponse en moins de 24h

Effectivement Gilles , il fallait dérouler la chronologie des évènements (pas évident d'ailleurs) . Contrairement au stringgrid la TMSFMXGrid ne construit pas "tout" durant le onCreate de la forme , l'astuce est d'attendre l'évènement OnApplyStyleLookup de cette dernière pour faire le Locate() .

Cependant comme ce dernier "travaille" fréquemment (du moins j'en ai l'impression) j'ai rajouter une variable privée à ma forme pour être sur de ne faire le positionnement qu'une fois pour le Create .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
..
private 
  Debut : Boolean;
..
procedure TForm1.FormCreate(Sender: TObject);
begin
  Debut:=True;
  ListePays.Active:=True;
  ListePays.Locate('CODE_INT',VarArrayOf(['IT']),[]);
end; 
 
procedure TForm1.TMSFMXGrid1ApplyStyleLookup(Sender: TObject);
begin
....
if Debut Then  ListePays.Locate('CODE_INT',VarArrayOf([Key]),[]);
Debut:=False;
...
end;