调整Toolbutton(动态生成)的位置

写作日期：2020-4-7 作者：习践无界

希望对大家有所利益，同大家结个缘分。尤其是新学Delphi的朋友。

想在ToolButton18的前方动态插入ToolButton。主要是设置Left、AutoSize属性。实现方式如下：

tbtn:=TToolButton.Create(toolbar1);
tbtn.Caption:= Common_Form.cdsFuncLink.FieldByName(‘linkdescribe’).AsString;
tbtn.name:= ‘tbtn’+Common_Form.cdsFuncLink.FieldByName(‘linkformid’).AsString;
tbtn.Parent:=toolbar1;

tbtn.Left:=ToolButton18.Left; //设置位置
tbtn.AutoSize:=True; //设置位置

tbtn.ImageIndex:=8;
tbtn.OnClick:=MyClick;