type TListView = class(ComCtrls.TListView) procedure WMRButtonUp(var Message: TWMMouse); message WM_RBUTTONUP; end;