有3个button，怎样让3个button共同使用一个事件，但点击一个button输出1，第二个输出2，第三个输出

Question

调用一个函数；
FUNCTION XS（S：STRING）：STRING；
BEGIN  FORM1.EDIT1.TEXT:=S;
END;
传值给S就可以啦

Answer 1

定义一个名为aaa的过程如: 
procedure aaa(Sender: TObject);
begin
  ............(你的代码)
end;
然后: button1.Onclick := aaa;
      button2.Onclick := aaa;
      button3.Onclick := aaa;

Answer 2

最好还是用Tag这个属性
BitBtn1.Tag:=1;
BitBtn1.Tag:=2;
BitBtn1.Tag:=3;在公用事件中输入
Label1.Caption:=IntToStr(TBitBtn(Sender).Tag);

Answer 3

你可以设置这三个按钮的TAG分别为1,2,3,然后添加下列代码:
if(Sender is TButton) then
begin
  Case TButton(Sender as TButton).Tag of
     1 : ShowMessage('1');
     2 : ShowMessage('2');
     3:  ShowMessage('3');
  end;//End case
end;
这个事件可被三个Button共用

Answer 4

和楼上的差不多
with (Sender as TButton) do
begin
  case tag of ...当然，你也可以用它们的name属性或caption属性来判断

Answer 5

按Shift键同时选中三个按钮，然后，单击窗口中的OnClick事件，在代码窗口中输入:
if sender=button1 then showmessage('1')
 else if Sender=button2 then showmessage('2')
   else showmessage('3')

Answer 6

sender 是什么，能讲讲吗？

Answer 7

使用button的tag属性,将三个button的tag属性分别设为1、2、3；
接着在button的click事件中输入
caseTButton（sender）．Tagof
1：ShowMessage（′1′）；
2：ShowMessage（′2′）；
3：ShowMessage（′3′）；
end;
三个button共用一个click事件，即可！

Answer 8

还是用TAG属性了，把每个BUTTON的TAG属性设置为不同的TAG，然后设定其中一个BUTTON的事件，在其余两个里选择就可以了！