这个功能怎么实现

Question

dbgrid1.Fields('aaa').Visible:= False;

Answer 1

不怎么明白你的意思?
你可以在对应的地方写dbgrid1.Fields('sss').Visible:= checkbox.checked;

Answer 2

用cn.yahoo.com
他用的是  google的引擎请大家去 http://www.new7wonders.com/c/voting.php 投长城一票

Answer 3

抗议：Google被封了！
奇怪,有谁知道为何被封吗?

Answer 4

//处理菜单点击事件
procedure TForm1.ProcessClick(Sender: TObject);
var
  TmpI: Integer;
begin
  (Sender as TMenuItem).Checked := Not (Sender as TMenuItem).Checked;
  for TmpI := 0 to DbGrid1.Columns.Count - 1 do
  begin
    if DbGrid1.Columns[TmpI].DisplayName = (Sender as TMenuItem).Caption then
      DbGrid1.Columns[TmpI].Visible := (Sender as TMenuItem).Checked;
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
var
  TmpI: Integer;
  TempMenuItem: TMenuItem;
begin
  for TmpI := 0 to DbGrid1.Columns.Count - 1 do
  begin
    TempMenuItem := TMenuItem.Create(PopupMenu1);
    TempMenuItem.Caption := DbGrid1.Columns[TmpI].DisplayName;
    TempMenuItem.Checked := True;
    TempMenuItem.OnClick := ProcessClick;
    PopupMenu1.Items.Add(TempMenuItem);
  end;
end;

Answer 5

5555555555
google
5555555555
用菜单的checked和Columns的visable属性就好的啦
5555555555
google
5555555555
怎么了啊