标签:Nid style ase column span tcl click code tun
1]控件的OnCellContextClick的事件
procedure TMainForm.UniDBGrid1CellContextClick(Column: TUniDBGridColumn; X, Y: Integer); begin UniPopupMenu1.Popup(X, Y, UniDBGrid1);//弹出 右键菜单,绑定UniDBGrid1 end;
2]再写菜单事件
procedure TMainForm.N1Click(Sender: TObject); begin UniDBGrid1.DataSource.DataSet.Delete; end;
标签:Nid style ase column span tcl click code tun
原文地址:https://www.cnblogs.com/tulater/p/12291726.html