类重载

//type
//  TListView = class(ComCtrls.TListView)
//    procedure WMCopy(var Message: TWMCopy); message WM_COPY;
//    procedure WMCut(var Message: TWMCut); message WM_CUT;
//    procedure WMContextMenu(var Message: TWMContextMenu); message WM_CONTEXTMENU;
//    procedure WMRButtonUp(var Message: TWMRButtonUp); message WM_RBUTTONUP;
//  end;