：关于在ToolBar中动态加入ToolButton后，如何相应ToolButton的点击（OnClick）事件(100分)

青

青苹果

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-16

• #1

在程序运行过程中，我现在已经动态的在ToolBar中加入了一个ToolButton，
但在点击ToolButton时我想进行一些处理但不知如何做。请教高人。

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-16

• #2

动态的对新的ToolButton付值就行了。
procedure MyClick(Sender:TObject)
begin
//你的处理过程
end;
procedure 你的动态创造过程。
begin
...
ToolButtonNew.OnClick:=MyClick;//函数名，实际就是指针了。
//也可用ActionList 完成，一样的。
...
end

 

V

VeryCoolBoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-16

• #3

先定义一过程
procedure TForm1.ToolButtonClick(Sender:TObject);
begin
......
end;
在你动态的加入ToolButton后,将该ToolButton的OnClick事件指针指向上面的过程即可
如：
ToolBar1.Buttons[x].OnClick:=ToolButtonClick;//x为你加入的那个Button的下标

 

青

青苹果

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-16

• #4

谢谢杜宝，VeryCoolBoy！！！！