【结】[问题]DataGrid右键bug？**

dynasty0628

功能一 用代码自定义了DataGrid的右键菜单，如第一张图
问题是只要打开这个功能，所有别的功能的DataGrid的右键菜单都和功能一一样，关闭功能一后就又都恢复了。见图2和3

dynasty0628

图2

dynasty0628

图3

jiahaiming

楼主是怎么设置的？

dynasty0628

图1是通过代码来的。
procedure TLBCX.DataGrid1PopupMenu(const Sender: TPopupMenu; var UseDefault, Handled: Boolean);
var
  NDeal,NBreak1,NDetail,NBreak2: TMenuItem;
  i: integer;
begin
if DataSetBroker1.DataSet.RecordCount <> 0 then
begin
  if  not (Sender.Items.Items[0].Caption = '处理(&D)') then
  begin
   NDeal:= TMenuItem.Create(self);
   NBreak1:= TMenuItem.Create(self);
   NDetail:= TMenuItem.Create(self);
   NBreak2:= TMenuItem.Create(self);
   NDeal.Caption:= '处理(&D)';
   NBreak1.Caption:= '-';
   NDetail.Caption:= '详细(&V)';
   NBreak2.Caption:= '-';
   Sender.Items.Insert(0,NBreak2);
   Sender.Items.Insert(0,NDetail);
   Sender.Items.Insert(0,NBreak1);
   Sender.Items.Insert(0,NDeal);
   NDetail.OnClick:= ShowDetail;
   NDeal.OnClick:= RunProcFunc;
  end;

  if NeedProcess then
    Sender.Items.Items[0].Enabled:= True
  else
    Sender.Items.Items[0].Enabled:= False;
end
else
begin
  if Sender.Items.Items[0].Caption = '处理(&D)' then
   for i:=1 to 4 do
     Sender.Items.Delete[0];
end;
  UseDefault:= True;
end;

其他的datagrid都是默认的，没改

jiahaiming

DataGrid使用的默认右键菜单是一个全局的公共对象，你在功能1中修改后，会影响其他功能DataGrid。

在切换功能时，需要用代码把它还原成默认方式。

dynasty0628

这个要如何判断啊
给个提示吧

dynasty0628

结吧，知道怎么做了