捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论:Delphi 技巧集终结者
realone_box 21078 2006/1/19 8:24:26
//**********关于Sender的一段代码重用**********//

procedure PublicButton_Click(Sender:TObject);
//****在private上(不知道这是什么区,请指教)声明这个函数
//****然后在Button1,Button2,Button3的OnClick事件中找到PublicButton_Click

procedure form1.PublicButton_Click(Sender:TObject);
begin
 if (Sender as TButton).name='Button1' then showmessage('Button1');
 if (Sender as TButton).name='Button2' then showmessage('Button2');
 if (Sender as TButton).name='Button3' then showmessage('Button3');
end;
//PublicButton_Click的定义
fjswge 10890 2004/12/24 11:08:45
不知道站长收不收徒弟啊?
rzman 8300 2004/9/10 1:23:53
好想拜站长为师啊!
root_lh 5778 2004/6/7 15:44:02
不错
gracesnow1979 5679 2004/6/5 9:41:48
不错!
ymifk 4912 2004/5/14 16:02:08
好!!
jhm_1982 4856 2004/5/13 8:49:40
谢谢楼主!
jpliu21 4414 2004/4/28 19:59:35
好站长啊,我天天来溜溜。谢谢你提供这么多资料。
zly192 3776 2004/4/9 13:10:37
不错不错谢谢站长
whirlwind 3213 2004/3/15 13:28:51
学习DELPHI前途光明啊,我顶,支持的顶!大家一起学好delphi来振兴中国的软件行业!!!

wuliang 2480 2004/2/24 8:59:57
太好了.现在看来选DELPHI一点都没错,有这么多强劲的资料.谢谢楼主!
bany 1426 2004/1/2 9:01:09
是学习的时候了.
victoriousboy 1351 2003/12/30 15:56:01
很好!一定推荐!
lijuhu 1208 2003/12/23 13:44:36
这里的东西的确都是很有用的,真的挺不错,我会经常到这里来的,谢谢各位大虾。
fishtj 1064 2003/12/17 16:22:37
非常好!!!,但是我全部down回去,反而不知道该看什么了。
xtusr113 992 2003/12/15 10:36:51
太好了.我真怕我看不过来这么多的好东东!谢谢你们!
aft2008 950 2003/12/12 20:33:24
VERY VERY GOOD 
我们声援你
hou319 921 2003/12/11 20:33:30
站做的好人也不错祝站长快乐!
kil 917 2003/12/11 18:30:13
我是经常来的啦!!!
springkang 847 2003/12/8 10:21:38
这是很好的网站,我天天都会来。


顶就一个字
第一页 上一页 下一页 最后页 有 25 条纪录 共2页 1 - 20
 用户名:
 密 码:
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表