救命!

Question

怎么增加继承自tComstomgrid组件的右击功能啊?提示有份啊,不知道这消息怎么定义啊?

Answer 1

重载鼠标点击事件  动态创建popmenu

Answer 2

加上    procedure WMRButtonUp(var Message: TWMRButtonUp); message WM_RBUTTONUP;procedure TComstomgrid.WMRButtonUp(var Message: TWMRButtonUp);
begin
  //inherited;
  Fpopmenu(self, .....) pop事件 
end;

Answer 3

procedure MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Enabled := False;
  PopupMenu := PopupMenu1;
  Enabled := True;end;