社区
Delphi
帖子详情
急救:如何在控件中自定义事件!?????高手请进!!!!
qyluo
2002-09-11 05:45:17
如何在控件中自定义事件!???????
...全文
144
5
打赏
收藏
急救:如何在控件中自定义事件!?????高手请进!!!!
如何在控件中自定义事件!???????
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
naughtyboy
2002-09-11
打赏
举报
回复
你首先要做一个自己的控件,继承自delphi自带的VCL
上面的是一个例子
naughtyboy
2002-09-11
打赏
举报
回复
如何给控件添加OnMouseLeave事件
unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
ExtCtrls;
type
TMyImage = class(TImage)
private
FOnMouseLeave: TNotifyEvent;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
protected
public
published
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TMyImage]);
end;
procedure TMyImage.CMMouseLeave(var Message: TMessage);
begin
inherited;
if Assigned(FOnMouseLeave) then FOnMouseLeave(Self);
end;
end.
u2m
2002-09-11
打赏
举报
回复
定义的方法也很简单,和定义属性差不多,只是类型时TNotifyEvent罢了。
TNotifyEvent是默认事件,其定义为:
TNotifyEvent = procedure(Sender: TObject)
如果你要定义另外形式的事件,就必须这样:先在type后编写
<事件类型名称> = procedure(<参数>:<类型>)
例如:
TCustomEvent = procedure(a: Integer; b:String);
然后在public后定义:
<事件名称>:<事件类型名称>
例如:
AnEvent: TCustomEvent;
紫气东来-长江
2002-09-11
打赏
举报
回复
private
FOnChange:TNotifyEvent
published
property OnChange:TNotifyEvent read FOnChange Write FOnChange
netlib
2002-09-11
打赏
举报
回复
设一个过程或函数的类型的属性
放到published中就可以了。
我在CSDN参与的3000个帖子
今日偶然翻到,感慨万千 1:申述:版主,是否扣了我的专家分? 2:100分急求,随机输出十个小写字母,但是,要求这十个字母不相同 3:求Sn=a+aa+aaa+…+aaa…a(n个a)之值 4:数组题 望
高手
帮忙! 5:呵呵,来推荐一下我的网站,本站提供大量当今流行的免费的音乐和免费电影,常用软件、游戏、精美图库下载,希望对网友有帮助!顺便散分! 6:VBA请教怎
CSDN回帖得分大全(近两年)
√vs2005调用dll的时候Initialize()函数返回错误 [VC/MFC 基础类] 40 ylongwu 05-21 20:486 ylongwu06-28 13:42管理√为什么我创建登陆框之后,然后获取登陆框的数据时候总是出现非法操作! [VC/MFC 界面] 40 chencheng8095 05-23 00:2911 xianglitian06-10 11:51管理√CFileFind::FindFile 支持通配符么? [VC/MFC 基础类] 100 wysbk002 05-22
Windows系统及应用技巧二十六篇
目录:一:详细的xp修复控制台命令和用法二:常见文件扩展名和它们的说明三:GHOST怎么用?四:如何防范恶意网站五:win2000/xp忘记密码的方法六:WindowsXP自带小工具七:windows
中
有关网络的几命令八:了解你的windows目录和系统文件九:低级格式化的主要作用十:封杀QQ消息连发器病毒十一:ie项目修改大全!所有的ie问题都来这里看吧!十二:注册表备份和恢复十三:详细的xp修...
android客户端通过无什么与后台服务信息传输??
在手机上有客户端 然后通过什么可以与后台服务信息传输???或者是用什么协议与后台通讯!!!请教高人 我也是新手,这周刚开始看android.我目前是手机通过wifi联入网络,走http协议连接后台服务的的,书上说也可以走tcp/ip协议。 http协议就可以吧请问下增加按钮在哪写代码呢? 更改android默认系统语言 Android项目一导入图片就报错啊?????????? ...
使用
自定义
动画替代Activity之间切换动画
小弟最近需要把两个Activity之间切换的动画替换成自己继承Animation类DIY的动画. 查看Android2.0以后的API, 发现API虽然提供了overridePendingTransition(int enterAnim, int exitAnim)函数更改Activity切换动画, 但是只支持传入动画xml的id. 我这个动画比较复杂, 我还没那个功力在xml里写出来. 请...
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章