[DUG] TToolBar

Robert martin rob at chreos.co.nz
Tue Sep 16 09:35:41 NZST 2008


Hi All

I am writing some code to add buttons to an existing toolbar.  I have 
the following which works but inserts the buttons at the front of the 
existing items. 

                    Tb := TToolButton.Create(ButtonToolBar);
                    tb.Style := tbsButton;
                    tb.Action := ActionClientItem.Action;
                    tb.ImageIndex := ActionClientItem.ImageIndex;
                    Tb.ShowHint := True;
                    Tb.Hint := ActionClientItem.Caption;
                    ButtonToolBar.InsertControl(TB);



What I really want to do is insert at the end.  This must be possible 
(the customise tool does it) but all the properties to set or move an 
item seem to be private.  Any suggestions?

Thanks
Rob


More information about the Delphi mailing list