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;
原文:https://www.cnblogs.com/tulater/p/12291726.html