delphi 如何拦截和处理WINDOWS消息？（刚才的帖子不知道怎么了，进不去了！）

Question

麻烦各位给个简单一点的例子！

Answer 1

看一看VCL源代码嘛。
建议到stdctrls中去搜索WM_即可。

Answer 2

interface
 Tclass=class of...
 begin
   Procedure WM_closeDeal(var msg TWMClose);Message WM_Close;
 end;
implament
var
 aaa:Tclass;
Procedure aaa.WM_closeDeal(var msg TWMClose);Message WM_Close;
begin
  ShowMessage('I love you')
end;
when the window will be closed ,you will see a messagebox with message of 'i love you'
do you understander?

Answer 3

o!thank i see bu i want more