定义一个Tbutton变量,在按钮单击事件里把被单击的按钮赋值给定义的这个变量就行了,如:
public
clickedbutton:Tbutton;
end;
procedure button1clicked......
begin
clickedbutton:=button1;
end;
procedure button2clicked......
begin
clickedbutton:=button2;
end;
在Button3的OnClick事件中写:
if button1.tag==1 then
ShowMessage('按钮1被按下了!')
else
if button2.tag=1 then
ShowMessage('按钮2被按下了!')
else
ShowMessage('你还没有按下过1或2按钮!');
在Button3的OnClick事件中写:
if CBtn=='1' then
ShowMessage('按钮1被按下了!')
else
if CBtn='2' then
ShowMessage('按钮2被按下了!')
else
if CBtn='0' then
ShowMessage('你还没有按下过1或2按钮!');