判断事件是否发生

Question

在事件过程里写上：ShowMessage() 就可以了。
当你给属性赋值时，属性就发生了变化。

Answer 1

VCL不提供查询功能，但你可以在程序运行时给元件的事件指针附值。比如你定义如下变量，notifyEvent:TNotifyEvent;在程序中可以将notifyEvenet 附给属于TNotifyEvent的事件form.OnChange:=notifyEvent用这种方式应该可以动态的获得form 的事件。

Answer 2

我的意思是在FROM 执行的每一个动作都记录

Answer 3

小曹，我知道你的需求，你上次 问HOOK的问题，跟这有关吧？其实你可以不用钩子的，用一个消息处理函数就可以搞定。
    在你的窗体的公共部分声明：   procedure MsgHandle(var msg:TMsg;var handled:boolean);然后实现：procedure TForm1.MsgHandle(var msg:TMsg;var handled:boolean);
begin
  handled:=false;
  if msg.message=wm_keydown then ...//记录下来，其余信息在Wparam内。
    ...
   如果不想让系统处理某个消息，可以令handled:=true;
end;
最后在
application.run;之前写上：
application.onmessage:=form1.MsgHandle;
OK!
因为我没能给你写那关于HOOK的东西，写上下面的给你算是弥补吧。

Answer 4

 skimwater 看到你真高兴，快和我联系好好寥寥 0351-7246187

Answer 5

唐：
   现在我需要的是得到某个控件的名字和他所执行的事件，我想生成一个脚本，如 button1.click 或某个控件属性的变化 如 Edit2.text:='asdf';
  

Answer 6

唐：
   现在我需要的是得到某个控件的名字和他所执行的事件，我想生成一个脚本，如 button1.click 或某个控件属性的变化 如 Edit2.text:='asdf';