[Solved] Delete a button from a ToolBar
lazarus / 31-LCL

----------------------------------------------------------------------
Edson · 2017-02-09 04:41

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

----------------------------------------------------------------------
balazsszekely · 2017-02-09 05:50

Quote@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][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TForm1.DeleteButton(const ANo: Integer);var  I: Integer;begin  for I
:= ToolBar1.ButtonCount - 1 downto 0 do    if (I = ANo) or (ANo = -1)
then      ToolBar1.Buttons[I].Free;end; procedure
TForm1.Button1Click(Sender: TObject);begin  DeleteButton(0); //delete
first  DeleteButton(ToolBar1.ButtonCount - 1); //delete last 
DeleteButton(-1); //delete all;end;

----------------------------------------------------------------------
Edson · 2017-02-10 02:40

Good.  The code works.

Thanks.