BUTTON1和BUTTON2二个控件供享一个ONCLICK一个事件,但让他们反回的值不同第一个反回BUTTON1第二个返回BUTTON2;
把BUTTON1和BUTTON2的事件ONCLICK事件都设为BUTTON1CLICK;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(TButton(Sender).Caption);
end;

但是这样只能显示出第个控件CAPTION属性值.而不是自义定的值.

比如让第一个显示'我是李小红';
第二个显示'我是周小白';

是否能实现这样的功能.

那你只能判断了，if TButton(Sender).caption=... then.....

同意楼上的