客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
C# in .Net Framework
delegate void Operation(unit x);
(定义的这个委托代表方法没有返回值,且有一个unit参数.
TNotifyEvent = procedure(Sender: TObject) of object;
在delphi下实现回调的例子
1 {
2 使用委托，将方法做为别一个方法的参数传递的例子（回调） 3 } 4 unit Unit1; 5 6 interface 7 8 uses 9 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 10 Dialogs, StdCtrls; 11 12 type 13 TDelegateClass=procedure(msg:string) of object;//定义一个委托 14 TDelegateClassArray=array[0..1] of TDelegateClass; 15 TForm1 = class(TForm) 16 Button1: TButton; 17 Button2: TButton; 18 procedure Button1Click(Sender: TObject); 19 procedure Button2Click(Sender: TObject); 20 private 21 { Private declarations } 22 procedure UserMethod(msg:string);//委托指定的用户自定义方法 23 procedure UserMethod2(msg:string);//委托指定的用户自定义方法2 24 procedure doDelegate(Delegate:TDelegateClass;msg:string);//如果委托实例存在，就执行委托 25 public 26 { Public declarations } 27 end; 28 29 var 30 Form1: TForm1; 31 32 implementation 33 34 {$R *.dfm} 35 36 { TForm1 } 37 38 procedure TForm1.doDelegate(Delegate:TDelegateClass;msg:string); 39 begin 40 if Assigned(Delegate) then 41 Delegate(msg); 42 end; 43 44 procedure TForm1.Button1Click(Sender: TObject); 45 begin 46 doDelegate(UserMethod,'test');//调用委托处理程序，显示test信息 47 end; 48 49 procedure TForm1.UserMethod(msg: string); 50 begin 51 showmessage(msg); 52 end; 53 54 procedure TForm1.Button2Click(Sender: TObject); 55 var 56 test:TDelegateClassArray; 57 begin 58 test[0]:=UserMethod; 59 test[1]:=UserMethod2; 60 doDelegate(test[0],'test'); 61 doDelegate(test[1],'test'); 62 end; 63 64 procedure TForm1.UserMethod2(msg: string); 65 begin 66 showmessage('这是第二个方法'); 67 end; 68 69 end. |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论