對DBGrid中的列進行顯示與否的設置

　　下面代碼主要完成的是在DBGrid上彈出右鍵菜單,對DBGrid中的列進行顯示與否的設置

　　//初始化PopupMenu中的列表
　　procedure InitMenuItem;
　　var
　　  NewItem: TMenuItem;
　　  i:integer;
　　begin
　　  for i:=0 to DBGrid1.Columns.Count-1 do
　　  begin
　　    NewItem:=TMenuItem.Create(nil);
　　    NewItem.Caption:=DBGrid1.Columns.Items[i].Title.Caption;
　　    NewItem.OnClick:=MenuOnClick;       //添加彈出菜單子項的方法
　　    NewItem.Checked:= true;
　　    PopupMenu1.Items.Add(NewItem);
　　  end;
　　end;

　　
　　procedure MenuOnClick(Sender: TObject);
　　begin
　　  TMenuItem(Sender).Checked:= not TMenuItem(Sender).Checked;
　　  DBGridDisplayInf;
　　end;

　　procedure DBGridDisplayInf;
　　var
　　  i:integer;
　　begin
　　  for i:=0 to PopupMenu1.Items.Count-1 do
　　  begin
　　    if not PopupMenu1.Items[i].Checked then
　　      DBGrid1.Columns.Items[i].Visible:= false
　　    else
　　      DBGrid1.Columns.Items[i].Visible:= true;
　　  end;
　　end;