DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: liugggggxxxxx
今日帖子: 34
在线用户: 15
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 abcjingtong (jingtong) ▲▲▲▲▲ -
注册会员
2019/9/9 10:08:38
标题:
delphi自带是否有类似TNotifyEvent带返回值的定义 浏览:189
加入我的收藏
楼主: classes单元有定义TNotifyEvent = procedure(Sender: TObject) of object;
这样我们在写一些事件时定义比较方便,不知道有没有带返回值的常用的事件定义,比如 TFunctionEvent = function(Sender: TObject): Boolean of object;
----------------------------------------------
18114532@qq.com
作者:
男 iamdream (银河恒久远,梦想无止境!) ★☆☆☆☆ -
大贡献会员
2019/9/9 10:56:40
1楼: 自己定义呗!
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
作者:
男 earthsbest (全能中间件) ▲▲△△△ -
注册会员
2019/9/9 13:23:35
2楼: 匿名函数

type
  TProc = reference to procedure;
  TMyComponent = class(TComponent)
  private
    FMyEvent: TProc;
  public
    property MyEvent: TProc read FMyEvent write FMyEvent;
  end;

var
  c: TMyComponent;
begin
  c := TMyComponent.Create(Self);
  c.MyEvent := procedure
  begin
    ShowMessage('Hello World!'); 
  end;
end;
----------------------------------------------
Delphi4Linux交流群:734515869 http://www.cnblogs.com/rtcmw
作者:
男 testerhook (CaptainHook) ▲▲▲▲▲ -
普通会员
2019/9/9 16:59:39
3楼: 系统没有,想要传参数可以用系统带的这个
  TGetStrProc = procedure(const S: string) of object;
更复杂的需求可以自己写类函数,或者换种思路解决。
----------------------------------------------
-
作者:
男 abcjingtong (jingtong) ▲▲▲▲▲ -
注册会员
2019/9/16 15:18:54
4楼: 感谢几位网友,我自己写一个吧。
----------------------------------------------
18114532@qq.com
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行15.625毫秒 RSS