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 |
这是很好的网站,我天天都会来。
顶就一个字 |