CnPack Forum


 
Subject: 匿名过程转换成事件过程,增加demo
zzzl (早安的空气)
版主
Rank: 7Rank: 7Rank: 7



UID 590
Digest Posts 0
Credits 399
Posts 199
点点分 399
Reading Access 100
Registered 2004-11-29
Status Offline
Post at 2011-1-22 16:24  Profile | Blog | P.M.  | QQ
匿名过程转换成事件过程,增加demo

之前在http://bbs.cnpack.org/viewthread.php?tid=10193&extra=page%3D1中讲了这个方法,可能用的例子比较偏僻,没有人回复,那么我用一个比较贴近生活的例子吧。

你有一个主窗体TForm1,你需要一个注册用户的功能,那么制作了一个TForm2,供用户填写用户名,密码之类的信息,和一个用于“注册”的按扭。
然后你还需要用户修改资料的功能,于是想重用TForm2,因为窗体布局和控件,和TForm2几乎一样,不同点是,注册按扭下的事件要修改,窗体标题栏的内容改变,某些编辑框不可用(比如用户ID)

这是个很简单的需求,但你可能至少要用到一个全局(或private域下的)变量,并且事件代码呈分散状态。

如果能动态创建事件。。。就可以象这样解决,在TForm1的“注册...”按钮中:

Form2.Button1.Caption:='注册';
Form2.Button1.OnClick:=notifyevent(  //给Form2的注册按扭“动态”创建一个点击事件
    procedure(sender: TObject)
    begin
    //...
    ShowMessage('注册成功');  //
    self.Caption:='欢迎您:'+form2.edit1.text;  //在主窗体的标题栏显示新注册的用户名,这里的self,指的是form1,实际上这里可以看到form1所有的内容,你不需要额外的外部变量传递状态。
    Form2.Close;
    end);
Form2.ShowModal;


form1里的“修改...”按钮和上面的类似:

Form2.Button1.Caption:='修改';
Form2.Caption:=self.Caption+' --> '+Form2.Caption;
Form2.Button1.OnClick:=notifyevent( //给Form2的修改按扭“动态”创建一个点击事件
    procedure(sender: TObject)
    begin
    ShowMessage('修改成功');
    self.Caption:='欢迎您:'+form2.edit1.text;
    Form2.Close;
    end);
Form2.ShowModal;

完整的代码在附件里。

这个方法使你不必在TForm2中写代码,注册和修改这两个逻辑,分别在TForm1的两个事件代码中实现,在每个事件中,都可以看到form1和form2,很容易控制,你很难搞错。


Attachment: NotifyEvent_demo.rar (2011-1-22 16:24, 409.53 K)
Download count 68
Top
 




All times are GMT++8, the time now is 2024-3-29 03:20

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.0.0  © 2001-2006 Comsenz Inc.
Processed in 0.008209 second(s), 9 queries , Gzip enabled

Clear Cookies - Contact Us - CnPack Website - Archiver - WAP