由于要为ListView控件添加一些功能，所以就新建了一个类来扩展ListView的功能。在自己创建的这个类里，添加的第一个事件是MouseMove，这个事件我在类中的声明为：
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
随后添加实现函数：
procedure TMyListView.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
inherited MouseMove(Shift, X, Y);
end;
经过测试，自定义的类可以响应MouseMove消息，但随后需要为ListView添加一个SelectItem事件就不知道该怎么处理了。
我在TListView类的声明中发现了如下代码：
property OnMouseMove;
property OnSelectItem;
声明的是属性，但我照添加MouseMove事件的方法来添加SelectItem却不管用了。后来在http://www.netgocn.com/TitList.htm这篇文章中找到了解决办法。
1.首先在自定义类中声明一个函数：
procedure SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
2.接着在自定义类的Create构造函数中添加一句代码：
OnSelectItem := SelectItem;
这样就可以了。
对Delphi的消息管理，我现在是一窍不通，以后再好好学学吧！