Dbgrid et sélection des colonnes à afficher à l'exécution
Soyez le premier à donner votre avis sur cette source.
Vue 13 374 fois - Téléchargée 2 842 fois
Description
Comment permettre, très simplement, à un utilisateur de chosisir les colonnes qu'il veut voir s'afficher dans un contrôle DbGrid ?
Ce code est une extension d'un précédent code source que j'ai publié sur ce site (création d'indexes à la volée, ou comment modifier l'ordre d'affichage des données en fonction de la colonne sur laquelle on clique).
Aussi, je ne publie ci-dessous que les parties qui ont trait au titre de ce code source.
Le code complet de l'application est contenu dans l'archive zip.
Le code est amplement commenté.
Réalisé avec D6.
Ce code est une extension d'un précédent code source que j'ai publié sur ce site (création d'indexes à la volée, ou comment modifier l'ordre d'affichage des données en fonction de la colonne sur laquelle on clique).
Aussi, je ne publie ci-dessous que les parties qui ont trait au titre de ce code source.
Le code complet de l'application est contenu dans l'archive zip.
- IMPORTANT *** : ne peut être compilé avec Delphi édition personnelle (utilisation de la base de données DbDemos).
Source / Exemple :
procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
i : integer;
MenuItem : TMenuItem;
begin
{ Effacer tous les éléments de menu }
PopupMenu1.Items.Clear;
{ Créer les éléments de menu }
for i:=0 to DbGrid1.Columns.Count - 1 do
begin
MenuItem := TMenuItem.Create(PopupMenu1);
{ Ajouter au PopupMenu }
PopupMenu1.Items.Add(MenuItem);
With MenuItem do
begin
{ Affecter à Caption le titre affiché dans les titres
des colonnes du DbGrid }
Caption := DbGrid1.Columns[i].Title.Caption;
{Cocher les éléments de menu qui sont déjà visibles avant l'appel}
Checked := DbGrid1.Columns[i].Visible;
{Utilisation de la propriété Tag pour retrouver l'indice de l'élément
coché/non coché dans la méthode PopItemClick implémentée ci-dessous}
Tag := i;
{Affectation d'une méthode Click à l'élément de menu}
OnClick := PopItemClick;
end;
end;
end;
procedure TForm1.PopItemClick(Sender: TObject);
begin
{Nous utilisons une référence sur l'élément cliqué}
with TmenuItem(Sender) do
begin
{Inverser son état pour refléter l'état après un click}
Checked := not Checked;
{Affectation de la propriété Visible du DbGrid en fonction de l'état
coché/non coché de l'élément de menu qui vient d'être cliqué }
DbGrid1.Columns[Tag].Visible := Checked;
end;
end;
Conclusion :
Le code est amplement commenté.
Réalisé avec D6.
Codes Sources
A voir également
- Code source delphi dbgrid
- Dbgrid delphi - Meilleures réponses
- Delphi datagrid - Meilleures réponses
- Multi select : une alternative à select multi colonnes - Codes sources - Javascript (Divers)
- Selection.AutoFill Colonne à coordonées dynamiques ✓ - Forum - Visual Basic 6
- VB.Net DataGrid Sélectionner que quelque colonnes à afficher dans le DataGrid ✓ - Forum - VB.NET
- Sélection de colonnes aléatiore en les cochants ✓ - Forum - Visual Basic
- Select en colonne et non en ligne... ✓ - Forum - SQL
Commentaires
Project xxxx raised exception class yyyyy with message 'zzzzzz'.
Process stopped. Use Step or Run to continue.
Merci de ton code, j'ai compris pas mal de chose sur les dbgrids.
juste un petit probleme comment sauvegarder le choix des colonnes de l'utilisateur , pour lors d'une future ouverture son choix soit de nouveau actif, sans avoir a tout refaire
merci encore
a+
Olivier
- Messages postés
- 4580
- Date d'inscription
- samedi 19 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 9 janvier 2013
26procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists('Grid.opt') then
ReadComponentResFile('Grid.opt', DbGrid1);
Table1.Open;
//.. reste du code
end;
Et, avant de fermer la fiche, de sauvegarder les valeurs des prorpiétés publiées du composant :
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
WriteComponentResFile('grid.opt', DbGrid1);
end;
Il n'y a rien de plus à faire !
cela fonctionne sans probleme
et oui encore une nouvelle fonction de decouverte ;o)
Olive
J'ai une question, tu fais
OnClick := PopItemClick;
donc tu associes une procédure quand on clique sur l'élément.
Je me suis inspiré de ce code et je désire faire de même
OnCLick mais il ne me propose que les var, const, type mais pas de procédure.
Est-ce moi qui n'est pas compris ou alors fais-je mal ?
(en gros chuis dans les choux).
Merci pour ta réponse.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.