uniGUI之UniPopupMenu(27)

procedure TMainForm.UniDBGrid1CellContextClick(Column: TUniDBGridColumn; X,  Y: Integer);
begin
UniPopupMenu1.Popup(X, Y, UniDBGrid1);//弹出 右键菜单,绑定UniDBGrid1
end;

procedure TMainForm.N1Click(Sender: TObject);
begin
   UniDBGrid1.DataSource.DataSet.Delete;
end;