给动态控件添加事件

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