Hola amigos del foro, la consulta es. ¿Como mostrar y ocultar columnas de un DBGrid? lo que deseo es implementar
una ventana propia para seleccionar las columnas que uno desea ver en un DBGrid.
estoy trabajando en este codigo, asi muestro las columnas del DBGrid en un TCheckListBox.
Código Delphi
[-]var
i :Integer;
begin
CheckListBox1.Clear;
for i := 0 to DBGrid1.Columns.Count-1 do
begin
CheckListBox1.Items.Add(DBGrid1.Columns[i].Title.Caption);
CheckListBox1.Tag := i;
if DBGrid1.Columns[i].Visible = True then
CheckListBox1.Checked[i] := True
else
CheckListBox1.Checked[i] := False;
end;
Ahora para seleccionar ocultar/mostrar una columna del DBGrid en tiempo real, es el problema
Código Delphi
[-]if CheckListBox1.Checked[tag] = True then
DBGridCProductos.Columns[tag].Visible := False
else
DBGridCProductos.Columns[Tag].Visible := True;
Necesito que alguien me ayude con este problemita, si alguien tiene una mejor forma de hacerlo bienvenido.