uniGUI之UniPopupMenu(27)

Posted 2021-03-11 tulater

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;