procedure TForm1.Button1Click(Sender: TObject); 这个(Sender: TObject)参数是啥意思? 可否举个例子 如题目 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 好象几周前才有这么一个问题的。Sender: TObject也就是一个TObject类型的参数而已,别想得太复杂。这种一般在类的事件中比较多见,一般这个Sender即为该类自身。比如:procedure TForm1.Button1Click(Sender: TObject); begin //如果你没在外部自行调用这个函数,那么Sender一般即是Button1,如果Button关联了TAction,则常为关联的TAction ShowMessage(TButton(Sender).Name);end; ShowMessage((sender as tbutton).name); 有点意思. 下面的例子更有利于你理解Sender!!sender可以不是它自己的procedure TForm1.Button2Click(Sender: TObject);begin button1click(sender);end;procedure TForm1.Button1Click(Sender: TObject);begin showmessage(Tbutton(sender).caption+' call me');end;我的分数太少了,害怕不能问问题了,还往多给些分!!!!!!! delphi 编译时报错a component named progressForm already exists Delphi 下使用EnableWindow函数的问题 delphi 隐藏访问网页问题 CnPack最近两天好像打不开了 一个关于WM_COPYDATA的问题 有谁知道数据连接*.udl和adoconnection的连接? 大家帮我看看如何实现? vc的CDwordArray,在delphi怎么实现? 控件安装出现的问题! 各位大虾,救救我吧!怎样在DBimage里能够显示出照片? 想写一个电子签名程序,有没有高手能帮手?送100分 text类型字段检索问题,谢谢
Sender: TObject也就是一个TObject类型的参数而已,别想得太复杂。这种一般在类的事件中比较多见,一般这个Sender即为该类自身。
比如:
procedure TForm1.Button1Click(Sender: TObject);
begin
//如果你没在外部自行调用这个函数,那么Sender一般即是Button1,如果Button关联了TAction,则常为关联的TAction
ShowMessage(TButton(Sender).Name);
end;
sender可以不是它自己的
procedure TForm1.Button2Click(Sender: TObject);
begin
button1click(sender);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(Tbutton(sender).caption+' call me');
end;
我的分数太少了,害怕不能问问题了,还往多给些分!!!!!!!