Discussion :

[Jean-Jacques Engels]

Bonjour,

Delphi donne la possibilité d'afficher dans son DBGrid un champ muni d'un bouton à points de suspension. Ce bouton permet l'affichage d'un sous-ensemble de données dans un autre DBGrid.

Quelqu'un a-t-il une idée de la manière dont il faut programmer ce bouton à points de suspension. L'aide Delphi mentionne cette possibilité mais est avare en exemples.
L'idéal serait un petit exemple.

Pour savoir exactement de quoi je parle, voir : Affichage des champs ADT et tableau dans l'aide Delphi

Un grand merci d'avance.

JJE

[sjrd]

Je n'ai pas les contrôles BD (version Perso), mais en général les points de suspension sur un bouton dans un champ servent à afficher une autre fiche en Modal afin de pouvoir y saisir des informations complexes. Si tu doutes de ce que je dis, va voir dans l'inspecteur d'objet, la propriété Font.

[rsc]

Tiré de l'aide de Delphi :

Propriété ButtonStyle du TColumn d'un DBGrid

cbsAuto : Si la colonne est associée à un champ de recherche ou si une valeur est affectée à sa propriété PickList, la grille affiche une boîte à options dans la colonne. L'utilisateur peut choisir une valeur dans la liste déroulante.

Donc il s'agit de définir comme champ persistant un champ de recherche (ou plus exactement de référence) et de l'affecter à cette colonne. Ensuite ça devrait marcher

Roland

[JustMe]

Dans ton DBGrid Tu appele l'editeur de colonnes par un double click ou
avec le menu contextuel tu ajoute les champs voulu de la table au DBGrid.
Ensuite dans une colonne dans le même éditeur dans sa propriété
ButtonStyle tu choisi cbsEllipsis (Le boutton avec les points de suspension)
Ensuite dans ton code, dans l'événement du DBGrid OnEditButtonClick tu
affecte l'action voulu mais si tu as plusieurs colonne avec ce type de
boutton tu doit tester sur la colonne avant d'effectuer quoi que ce soit
Ex :

Code :

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

1
2
3
4
5
if DBGrid1.SelectedField.FieldName = 'NomChamps' then
begin
//Effectuer une action
// Montrer un autre DBGrid Par Ex.
end;