写作日期: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;