how to show or hide columns from checkbox

Hello mouasomar
I do like this snippet to hide/unhide column(s) of a tablegrid :

procedure Afficher_Colonnes_CheckBox17_OnClick (Sender: TObject);
begin
       Form1.TableGrid1.Columns[16].Visible := Afficher_Colonnes.CheckBox17.Checked;    // Colonne Date de retrait
end;

procedure Afficher_Colonnes_CheckBox16_OnClick (Sender: TObject);
begin
      Form1.TableGrid1.Columns[15].Visible := Afficher_Colonnes.CheckBox16.Checked;    // Colonne Date de parution
end;

procedure Afficher_Colonnes_CheckBox15_OnClick (Sender: TObject);
begin
     Form1.TableGrid1.Columns[14].Visible := Afficher_Colonnes.CheckBox15.Checked;    // Colonne Type de poste
end;

procedure Afficher_Colonnes_CheckBox14_OnClick (Sender: TObject);
begin
     Form1.TableGrid1.Columns[13].Visible := Afficher_Colonnes.CheckBox14.Checked;    // Colonne Qualité
end;

procedure Afficher_Colonnes_CheckBox13_OnClick (Sender: TObject);
begin
    Form1.TableGrid1.Columns[12].Visible := Afficher_Colonnes.CheckBox13.Checked;    // Colonne Type d'impression
end;

procedure Afficher_Colonnes_CheckBox12_OnClick (Sender: TObject);
begin
     Form1.TableGrid1.Columns[11].Visible := Afficher_Colonnes.CheckBox12.Checked;    // Colonne Dentelure
end;

procedure Afficher_Colonnes_CheckBox11_OnClick (Sender: TObject);
begin
    Form1.TableGrid1.Columns[10].Visible := Afficher_Colonnes.CheckBox11.Checked;    // Colonne Statut
end;

procedure Afficher_Colonnes_CheckBox10_OnClick (Sender: TObject);
begin
    Form1.TableGrid1.Columns[9].Visible := Afficher_Colonnes.CheckBox10.Checked;    // Colonne Graveurs
end;

procedure Afficher_Colonnes_CheckBox9_OnClick (Sender: TObject);
begin
     Form1.TableGrid1.Columns[8].Visible := Afficher_Colonnes.CheckBox9.Checked;    // Colonne Dessinateurs
end;

procedure Afficher_Colonnes_CheckBox8_OnClick (Sender: TObject);
begin
      Form1.TableGrid1.Columns[7].Visible := Afficher_Colonnes.CheckBox8.Checked;    // Colonne Couleurs
end;

procedure Afficher_Colonnes_CheckBox7_OnClick (Sender: TObject);
begin
      Form1.TableGrid1.Columns[6].Visible := Afficher_Colonnes.CheckBox7.Checked;    // Colonne Valeur faciale
end;

procedure Afficher_Colonnes_CheckBox6_OnClick (Sender: TObject);
begin
     Form1.TableGrid1.Columns[5].Visible := Afficher_Colonnes.CheckBox6.Checked;    // Colonne Année
end;

procedure Afficher_Colonnes_CheckBox5_OnClick (Sender: TObject);
begin
     Form1.TableGrid1.Columns[4].Visible := Afficher_Colonnes.CheckBox5.Checked;    // Colonne Thème
end;

procedure Afficher_Colonnes_CheckBox4_OnClick (Sender: TObject);
begin
     Form1.TableGrid1.Columns[3].Visible := Afficher_Colonnes.CheckBox4.Checked;    // Colonne Série
end;

procedure Afficher_Colonnes_CheckBox3_OnClick (Sender: TObject);
begin
     Form1.TableGrid1.Columns[2].Visible := Afficher_Colonnes.CheckBox3.Checked;    // Colonne Désignation
end;

Probably not the best way but it makes the job
JB

Here is an example found on the forum.

Hi Mouasomar, Jean, Destiny,
Perhaps try it something like this (see attached).
Click on the 'Columns' button, select which columns to show / hide and then click again on the 'Columns' button.
Derek.