Question

如何为Delphi程序添加事件和事件处理器

Answer 1

如果是组件里已有的事件，比如：鼠标点击、窗体的关闭、拖拽等，则可以切换到事件管理面板，找到事件（比如 OnClick )后双击就可以在窗口的类定义里，生成事件响应函数的定义。

如果是自定义事件，需要先确定响应的消息，以下是网上参考资料：

1、先用Const 定义一个常量，例如 const WM_MyMessage=WM_USER+$200;

2、在要实现的unit中定义一个私有方法

   procedure doMyMessage(var msg:TMessage);message WM_MyMessage;

3、实现这个私有方法

procedure TForm1.doMyMessage(var msg:TMessage);
begin
  if msg.Msg= WM_MyMessage then
    showmessage('好啊')
  else
    showmessage('不好'); 
end;