Delphi消息截获

Delphi中的消息截获

万一博客钩子入门

Delphi中的消息钩子函数和Windows子类处理 入门篇 - 刘景军[Eddie Liu]的专栏 - CSDN博客  5/

TMyEdit = class (TEdit)
public
procedure WndProc(var Message:TMessage);override;
end;

{ TMyEdit }

procedure TMyEdit.WndProc(var Message: TMessage);
begin
if Message.Msg = WM_KEYDOWN THEN
begin
ShowMessage('dd');
exit;
end
else
inherited;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
MyEdit: TMyedit;
begin
Myedit:=TMyEdit.Create (self);
MyEdit.Parent := Form1;
end;
这样就可以了 ,不过如果要拦截字符消息得用WM_CHAR

不过我决的用下面的方法更好
function NewProc(hwnd: HWND;msg: UINT;wparam: WPARAM;lparam: LPARAM):LRESULT;stdcall;
begin
case Msg of
WM_KEYDOWN,
WM_KEYUP,
WM_CHAR,
WM_IME_CHAR:
begin
Result:= 0;
Exit;
end;
else
Result:= CallWindowProc(oldProc,hwnd,msg,wparam,lparam);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
OldProc:= Pointer(SetWindowlong(Edit1.Handle,GWL_WNDPROC,Longint(@NewProc)));
end;

封杀键盘：
procedure TMyEdit.WndProc(var Message: TMessage);
begin
case Message.Msg of
WM_KEYFIRST..WM_KEYLAST: Exit;
else inherited;
end;
end;