点击一个在toolbar上面动态创建好几个的toolbuttons上面,如何才知道点击的是哪一个

Question

我拷，你把toolbutton 的showcaption属性置为true 不就行了吗，

Answer 1

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
  (Sender as TToolButton).Caption
end;

Answer 2

(Sender as TToolButton).Caption
或者使用tag来区别

Answer 3

判断ToolButton的Tag属性
button1.tag:="1";
button2.tag:="2";
button3.tag:="3";procedure TForm1.BtnClick(Sender: TObject);
var 
  strTag : String;
begin
  strTag:=(Sender as TToolButton).Tag;
  if strTag="1" then
    ShowMessage("按了1")
  else if strTag="2" then
         showMessage("按了2")
       else
         ShowMessage("按了3");              
end;

Answer 4

我的意思是,点了这几个动态创建的按钮以后,可以将他们的caption赋给 一个label.caption
能否做到这一点?
要如何做?
(一定是动态创建在toolbar1上面的toolbuttons,)

Answer 5

设计一个通用的过程，在动态创建toolButton时，将其Click事件指向这个通用的过程:
toolButton1.Click:=Procedure1;

Answer 6

在Procedure1这个过程中要如何定义caption呢？