请问?procedure tform1.buttonclick(sender:tobject);中,sender:tobject这句话的意思?谢谢 sender:tobject触发点击事件的对象 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 zswang(伴水)(伤心中),您好!按照你的说法,也就是说此是TBottom了?是吗?应为触发此Click事件的是TBotton?不知道我的理解对吗?如果是这样的话?那么在此过程中有这样一个参数有什么作用呢?谢谢您了! 有时不同的按钮(或其它)都要执行同一个事件Sender就是用来区分的 procedure TForm1.ButtonClick(Sender: TObject);begin ShowMessage('你点了' + TButton(Sender).Name);end;procedure TForm1.FormCreate(Sender: TObject);begin Button1.OnClick := ButtonClick; Button2.OnClick := ButtonClick; Button3.OnClick := ButtonClick;end; 如何获取Internet临时文件中某文件的大小?(200分+100RMB) cxgrid 自带右键功能及界面风格保存的使用. 可以开押宝了 出售集成自动控件大全 怎么写自定义类型? 关于文件压缩的问题 MM难题:散分! TDataBase組件的用法 怎么样才能格式化输入字符串? 谁有delphi5下载的地方? 请教版主:如何对变量类型进行转换? 紧急求救:怎样当点击一个按钮时,能选中dbgrid控件中的全部记录?
谢谢您了!
都要执行同一个事件
Sender就是用来区分的
begin
ShowMessage('你点了' + TButton(Sender).Name);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.OnClick := ButtonClick;
Button2.OnClick := ButtonClick;
Button3.OnClick := ButtonClick;
end;