ListView的消息钩子

最新推荐文章于 2020-07-29 20:12:05 发布

转载最新推荐文章于 2020-07-29 20:12:05 发布 · 62 阅读

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/k1988/archive/2009/09/26/2165720.html

本文介绍了一种在ListView控件上设置消息钩子的方法，通过创建一个新的窗口过程替换原有的过程，从而实现对ListView消息的捕获与处理。需要注意的是，在使用某些特定函数如ListView_SetItemPosition后，可能需要重新设置消息钩子。

constructor ***.Create() begin // ListView的消息钩子 FNewProc := MakeObjectInstance(SelfListViewProc); FOldProc := Pointer(GetWindowLong(FListView.Handle, GWL_WNDPROC)); SetWindowLong(FListView.Handle, GWL_WNDPROC, LongInt(FNewProc)); end; procedure ***.SelfListViewProc(var Msg: TMessage); begin if Assigned(FOnListViewMsg) then FOnListViewMsg(msg); Msg.Result := CallWindowProc(FOldProc, FListView.Handle, Msg.Msg, Msg.WParam, Msg.LParam); end; destructor ****.Destroy; var i: Integer; begin SetWindowLong(FListView.Handle, GWL_WNDPROC, LongInt(FOldProc)); FreeObjectInstance(FNewProc); end;

但是需要注意的是ListView_SetItemPosition之类的函数可能导致设置的消息回调无效，原因不详，需要在调用这些函数后再次设置

SetWindowLong(FListView.Handle, GWL_WNDPROC, LongInt(FNewProc));

转载于:https://www.cnblogs.com/k1988/archive/2009/09/26/2165720.html