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