[Solved] Delete a button from a ToolBar

[Edson]

Can someone tell me, How can I delete a Button (on runtime) from a TToolBar? or, How can I delete all the buttons?

[balazsszekely]

@Edson
Can someone tell me, How can I delete a Button (on runtime) from a TToolBar? or, How can I delete all the buttons?

Here you go:

Code: Pascal  [Select][+][-]

1. procedure TForm1.DeleteButton(const ANo: Integer);
2. var
3.   I: Integer;
4. begin
5.   for I := ToolBar1.ButtonCount - 1 downto 0 do
6.     if (I = ANo) or (ANo = -1) then
7.       ToolBar1.Buttons[I].Free;
8. end;
9.  
10. procedure TForm1.Button1Click(Sender: TObject);
11. begin
12.   DeleteButton(0); //delete first
13.   DeleteButton(ToolBar1.ButtonCount - 1); //delete last
14.   DeleteButton(-1); //delete all;
15. end;
16.  

[Edson]

Good.  The code works.

Thanks.