DBCtrlGrid右键选中

procedure TfrmYhgl.DBCtrlGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if   Button   =   mbRight   then
      begin
          DBctrlGrid1.Perform(WM_LBUTTONDOWN,   0,   (y   *   $10000   +   x));
          DBctrlGrid1.Perform(WM_LBUTTONUP,   0,   (y   *   $10000   +   x));
      end;
end;