Delphi FireMonkey Grille: Colonnes Invisible en mode Navigation

Question

j'ai un TGrid sur FMX avec 3 colonnes, la deuxième colonne est Visible False, si je clique sur la première colonne et appuyez sur la flèche pour se concentrer sur la colonne suivante visible, le curseur ne va pas à la troisième colonne, il disparaît, comme s'il se concentrait sur la deuxième colonne, et si j'appuie de nouveau sur la flèche, il se dirige vers la troisième colonne.

Comment puis-je résoudre ce problème?

Answer 1

Utilisez l'événement OnSelectCell comme suit:

procedure TForm7.Grid1SelectCell(Sender: TObject; const ACol, ARow: Integer; 
    var CanSelect: Boolean); 
begin 
    if not (Sender as TGrid).Columns[ACol].Visible then 
    begin 
    CanSelect := False; 
    if (Sender as TGrid).ColumnByIndex(ACol+1) <> nil then 
     (Sender as TGrid).SelectColumn(ACol+1); 
    end; 
end; 

---

BTW, vous ne dites pas quelle version de Delphi que vous utilisez, et il y a des différences. S'il vous plaît, lorsque vous demandez environ Firemonkey, toujours étiqueter la question avec votre version de Delphi. Voici une mise à jour:

• Dans Delphi 10.1 Berlin, le correctif ci-dessus n'est pas nécessaire.

• Dans Delphi 10 Seattle et plus tôt (je l'ai vérifié jusqu'à XE6) le correctif est nécessaire

Vous pouvez également remarqué que la sélection dans l'autre sens (de droite à gauche) fonctionne sans le correctif dans versions Delphi 10 Seattle et plus tôt (ce qui explique pourquoi seulement ACol + 1 doit être considéré).