【结贴】V3002关于Sender转换的问题**

chaoqiang

目的：TDataGrid的右键删除。
在2603版本里做了如下实现，ActionList中添加了一个Action（Name为ActionDel），其OnExecute代码如下：
procedure TTMPIORDERINFOADDFD.ActionDelExecute(Sender: TObject);
var lvDestDs:TDataSet;
begin
lvDestDs:=TDataSet(TBizDataSetAction(Sender).CurrentDataSource.DataSet);
if lvDestDS = nil then exit;
if lvDestDS.IsEmpty then exit;
...
lvDestDS.delete;
end;
某个PopupMenu（Name为PMenuDel）的一个子菜单项的Action引用ActionDel，然后某个DataGrid（Name为DGrid1）的PopupMenu属性引用PMenuDel。
上面这实现在V2603运行后，对DGrid1的某条数据右键删除，不会提示错误， 但在3002版本就运行不通过了，提示如下图的异常，出错位置是 lvDestDs:=TDataSet(TBizDataSetAction(Sender).CurrentDataSource.DataSet) ，

chaoqiang

人呢？大侠们，指点一下了

yancm

不要对sender操作，直接对当前datagrid的dataset操作。

yancm

TBizDataSetAction(Sender).CurrentDataSource 是空的

chaoqiang

由于有多个DataGrid都有同样的引用PMenuDel需要，才直接对sender进行操作的。现在问题是1）lvDestDs:=TDataSet(TBizDataSetAction(Sender).CurrentDataSource.DataSet) 这一个在V2603里运行是OK的，在V3002里为什么就不行了？
另注：在V3002里，我把lvDestDs:=TDataSet(TBizDataSetAction(Sender).CurrentDataSource.DataSet) 换成lvDestDs:=TDataSet(TDataGrid(TPopupMenu(TMenuItem(Sender).getparentcomponent).popupcomponent).DataSource.DataSet)就可以了

chaoqiang

最初由 yancm 发布
[B]TBizDataSetAction(Sender).CurrentDataSource 是空的 [/B]

是空的知道，我有跟踪过，但在2603是可以的，在3002就不行了，为什么呢？

chaoqiang

这问题你们重现出来了么？

lisb

可以重现，可以用TBizDataSetAction，选上自动侦测属性
procedure TMainForm.BizDataSetAction1Execute(Sender: TObject);
var
  lvDestDs:TDataSet;
begin
  lvDestDs := TDataSet(BizDataSetAction1.CurrentDataSource.DataSet);
  if lvDestDS = nil then exit;
  if lvDestDS.IsEmpty then exit;
  lvDestDS.delete;
end;

procedure TMainForm.BizDataSetAction1Update(Sender: TObject);
begin
  (Sender as TBizDataSetAction).Enabled := True;
end;


先结帖了，有问题请发新帖。