如何为Delphi程序添加事件和事件处理器
2016-09-28 · 知道合伙人软件行家
关注
展开全部
如果是组件里已有的事件,比如:鼠标点击、窗体的关闭、拖拽等,则可以切换到事件管理面板,找到事件(比如 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;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询