由于要为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的消息管理,我现在是一窍不通,以后再好好学学吧!