怎么批量隐藏dbgrid中的列

如何批量隐藏dbgrid中的列？
本帖最后由 ldjssoft 于 2013-11-13 11:08:41 编辑 如题，单列隐藏代码我会，问题是，我有十多个查询窗口，每个查询窗口上的dbgrid多达30列，其中有些列客户不需要显示，希望能自已隐藏，请问要怎么实现快速处理呢？ 难道一行一行的去写隐藏代码么？如果这样，其中如果以后要加一列，那后面又要改一串，工作量不小。请教怎么方便弄这？
[解决办法]

var
  i, j: integer;
begin
  for i:=0 to Self.ControlCount - 1 do
  begin
    if Self.Controls[1] is tdbgrideh then
    begin
      for j := 0 to TDBGridEh(Self.Controls[1]).Columns.Count - 1 do
      begin
        if ... then
        begin
          TDBGridEh(Self.Controls[1]).Columns[j].Visible := False;
        end;
      end;
    end;
  end;
end;