ListView的消息钩子

iteye_20954

于 2009-09-26 10:24:00 发布

阅读量95

点赞数

本文介绍了一种使用消息钩子来捕获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));