|
共有评论12条
当前显示最后6条评论
|
| bos |
2006/1/17 16:04:02 |
| chm 不错啊 |
| realone_box |
2006/1/26 8:59:15 |
//**********关于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的定义 |
| vliren |
2008/1/5 10:23:07 |
| 感谢盒子及爱好Delphi的朋友们，就是爱Delphi!!!! |
| legend888888 |
2008/6/2 14:26:51 |
| good ,very good |
| awan99 |
2008/12/3 22:33:31 |
| 谢谢各位,好全啊,辛苦了 |
| yxchlzcch |
2010/9/26 17:08:09 |
| 怎么都不能下载了呢 |
| 我要发表评论 |
查看全部评论 |
|
