5,386
社区成员
发帖
与我相关
我的任务
分享toolbar 中动态生成Toolbutton的问题
toolbar在设计期间已有-Toolbutton bnt1,
欲在运行期间动态生成-Toolbutton bnt2,
并使bnt2在bnt1之后,即bnt1的index为0,
btn2的index 为1,
请赐教!!
欲在运行期间动态生成-Toolbutton bnt2,
并使bnt2在bnt1之后,即bnt1的index为0,
btn2的index 为1,
请赐教!!
...全文
请发表友善的回复…
发表回复
Venne 2000-01-15
- 打赏
- 举报
他们都说完了。
delphi_fan 2000-01-14
- 打赏
- 举报
with TToolButton.Create(Self) do
begin
Parent := ToolBar1;
...
end;
Index是只读属性，自动编号的，没法改，按顺序加吧。
begin
Parent := ToolBar1;
...
end;
Index是只读属性，自动编号的，没法改，按顺序加吧。
kxy 2000-01-14
- 打赏
- 举报
procedure TForm1.Button2Click(Sender: TObject);
var
AToolButton : TToolButton;
begin
AToolButton := TToolButton.Create(Toolbar1);
AToolButton.Parent := Toolbar1;
end;
var
AToolButton : TToolButton;
begin
AToolButton := TToolButton.Create(Toolbar1);
AToolButton.Parent := Toolbar1;
end;
