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

如果是组件里已有的事件，比如：鼠标点击、窗碰袭体的关闭、拖拽等，则可以切换到事件管理销袜面板，找到事件（比如 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

CAD工程平面图绘制方面是非常强大的，在使用该软件绘图时我们可以使用一下外部程序来提高我们的工作效率，下面我们就来看看CAD是如何加载应用程序的吧。

打开CAD这款软件，进入CAD的 *** 作界面。

在该界面内找到管理菜单。

点击管理菜单，在其内找到加载应用程改或唯序选项。

点击加载应用程序选项，d出其对话框。

在加载应用程序对话框内找到我团祥们需要的应用程序。

再在该对话框内找到启动组选项，点击启动组选项，选择刚核培刚的文件，这样以后我们就可以将该应用程序加载进来了。

---