关于动态追加控件的问题。(100分)

Y

yangqn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-16

• #1

我在ToolBar中动态加上了若干个ToolButton,我作了一个过程MyCilck可以相应ToolButton的点击动作，
但我如何能知道点击的是第几个ToolButton呢？

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-16

• #2

给toolbutton的tag赋值,用于区别:
toolbutton1.tag:=1;
toolbutton2.tag:=2;
toolbutton3.tag:=3;
....
case (sender as ttoolbutton).tag of
1: ....
2: ...
3: ...
end;

 

Y

yangqn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-16

• #3

没有人知道吗？？？？？？？？？

 

V

VeryCoolBoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-16

• #4

//你的过程应该如下吧，注意到Sender参数没有？其实它便是点击的ToolButton,转换一下就可以知道
Procedure TForm1.MyClick(Sender:TObject);
begin
ShowMessage(intToStr(TToolButton(Sender).index));//可以显示你点击的ToolButton的下标
end;
TToolButton(Sender)//这是关键，将Sender强制转换成ToolButton

 

Y

yangqn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-17

• #5

多人接受答案了。