function aaaa(sender:object);
begin
if sender is TButton then //判断不同控件
...
if sender is TEdit then
if TEdit(sender as object).name='Edit1' then //判断同种控件的不同个体
....
end;
begin
if sender is TButton then //判断不同控件
...
if sender is TEdit then
if TEdit(sender as object).name='Edit1' then //判断同种控件的不同个体
....
end;
解决方案 »
- Delphi编译出的程序,为什么在有的windows2003不能运行,内详,高手进
- 怎样实现程序的自动注销?
- FastReport 问题..急
- 这里一定有 100 分
- 从硬盘读取wav文件然后保存在变量中可以实现吗?
- 多语言数据库的应用程序,象DBGRID字段里的这些标题我应放在哪里好?
- 本人最近开发了一个新的软件,请各位仁兄下载试试看,不要错过这个免费的软件。
- 动态制报表范例程序
- Delphi 发送信息,并提醒对方,并且把信息保存到数据库。怎么样来实现。
- MS Sql7中,如何设置一帐号的权限,使他只能访问一两个数据库???(要步骤,必给分)
- 在线请进!100分!
- 那有可用的FastReport 2.4 的包
1. 如果需要有返回值,可定义函数function aaaa(sender:object):string;
调用时形如:aaaa(button1); aaaa(Edit1); ...
2. 如果不需要返回值,可定义过程procedure aaaa(sender:object);更方便。
在Button1的OnClick中选aaaa,在Edit1的OnClick中选aaaa,...
当控件被点击,该过程自己知道sender是Button1, Edit1, ...