UC知道delphi 点击某控件如何获得该控件的句柄？
来源：百度知道 编辑：UC知道 时间：2024/06/30 13:42:52
比如说
...
button1:Tbutton;
{该按钮对应的点击程序名我命名为btn1click}
procedure btn1click(sender:tobject);
begin
{？？在此间如何获得button1？？}
end;
谢谢，应该使用一个默认关键字就可以了，但是不知道是什么。
我的问题其实是这样的：
我有3个按钮，他们共用一个处理程序btnclick(...),当我点击第一个按钮，他应该对第一个作用，当我点击第二个它应该对第二个作用，(例如，改变按钮的caption等等)...明白我的意思了么？
...
button1:Tbutton;
{该按钮对应的点击程序名我命名为btn1click}
procedure btn1click(sender:tobject);
begin
{？？在此间如何获得button1？？}
end;
谢谢，应该使用一个默认关键字就可以了，但是不知道是什么。
我的问题其实是这样的：
我有3个按钮，他们共用一个处理程序btnclick(...),当我点击第一个按钮，他应该对第一个作用，当我点击第二个它应该对第二个作用，(例如，改变按钮的caption等等)...明白我的意思了么？
先对三个按钮的Tag属性进行编号,分别为0,1,2
procedure TForm1.Button1Click(Sender: TObject);
begin
case TButton(Sender).Tag of
0:第一个按钮处理程序
1:第二个按钮处理程序
2:第三个按钮处理程序
end;
end;
procedure ChangeButtonCaption(Sender: TButton);
begin
sender.caption := '新的文字';
end;
调用的时候用：
procedure TForm1.Button1Click(Sender: TObject);
{在Button1的OnClick事件里面改变自己的Caption}
begin
ChangeButtonCaption(sender as tbutton);
end;
(sender as tbutton);
这个是关键啊！