Código Delphi [-] //ocultar la columna procedure TForm1.BitBtn1Click(Sender: TObject); begin StrgPrueba.Cols[2].Text:='Hola'; StrgPrueba.ColWidths[2]:=0; end; //Mostrarla con el ancho general de la rejilla procedure TForm1.BitBtn2Click(Sender: TObject); begin StrgPrueba.ColWidths[2]:=StrgPrueba.DefaultColWidth; end;
//ocultar la columna procedure TForm1.BitBtn1Click(Sender: TObject); begin StrgPrueba.Cols[2].Text:='Hola'; StrgPrueba.ColWidths[2]:=0; end; //Mostrarla con el ancho general de la rejilla procedure TForm1.BitBtn2Click(Sender: TObject); begin StrgPrueba.ColWidths[2]:=StrgPrueba.DefaultColWidth; end;