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

 我来答
windblast
2016-09-28 · 知道合伙人软件行家
windblast
知道合伙人软件行家
采纳数:5633 获赞数:13620
毕业于空军第一航空学院电子专业,1991年开始接触电脑,从事多年计算机编程,具有较丰富的经验。

向TA提问 私信TA
展开全部

如果是组件里已有的事件,比如:鼠标点击、窗体的关闭笑斗兄、拖拽等,则可以切换到事件管理面板,碰袭找到事件(比如 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;
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式