救命!

[cissykiller]

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

[Samland]

考虑用popMenu，在OnClick事件

[snowtiger2000]

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

[LuYang]

加上 procedure WMRButtonUp(var Message: TWMRButtonUp); message WM_RBUTTONUP;

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

[jiadrun]

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

end;