delphi中如何截取控件消息
我想截取TDBGrid的消息,不知各高手能否指教。
是所有的吗?
procedure MyProc(aHandle: HWND; msg: UINT; wParam: WPARAM;
lParam: LPARAM); stdcall;
begin
....
//记得 CallWindowProc(t, aDBgrid.Handle, msg, wParam, lParam);
end;
var t: TFARPROC; //全局
begin
t := Pointer(GetWindowLong(aDBgrid.Handle, GWL_WNDPROC));
SetWindowLong(aDBgrid.Handle, GWL_WNDPROC, LongInt(@MyProc));
//未经测试
end;
这样做:
先定义函数……
…………
OldWndProc, NewWndProc: Pointer;
procedure NewWndMethod (var Msg: TMessage);
…………
procedure MyProc(var Message: TMessage);
begin
....
//记得 CallWindowProc(OldWndProc, aDBgrid.Handle, msg, wParam, lParam);
end;
子类化…………
………………
NewWndProc := MakeObjectInstance (NewWndMethod);
OldWndProc := Pointer (SetWindowLong (
Form1.Handle, gwl_WndProc, Longint (NewWndProc)));
………………
最后—……
SetWindowLong (fFormHandle, gwl_WndProc,
Longint (OldWndProc));
FreeObjectInstance (NewWndProc);
不会出错呀,我都试过了,试的是 button,
还有我的只能获取标准的 windows 消息,delphi 自定义的不能截取
TControl 有个 WndProc 可用,可以截取所有的消息。
var
在 form 中 :
oldProc: TWndMethod;
procedure MyProc(var Message: TMessage);
然后
oldProc := aDBgrid.WndProc;
aDBGrid.WndProc := MyProc;
procedure MyProc(var Message: TMessage);
begin
if Message.msg = WM_RBUTTONDOWN then
ShowMessage('ok');
oldProc(Message);//一定不要忘了。
end;
我用的是 button 做的测试,完全可以。