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;
解决方案 »
- 如何从USB接口接收数据?
- 在绘图时,用VCL的Tpen 与 windows GDI API 哪个性能最佳.
- 我的软件为网络版(c/s),服务器为98,客户端也是98,连接报错,为什么?
- 不知道是什么控件,提示cstlstList.oncustomdrawcell:property oncustomdrawcell does not exist
- 请问统计字段:TAggregate怎么用,怎么把统计出的值显示在表格里(dbgrideh)
- 2个简单问题
- 在dll中使用synchronize的问题
- (急急急.....)1.请教关于EOutofResource的问题 2.请问有没有节省内存的办法
- 无法运行regsrv程序,我该怎么办?????
- 在DELPHI中,怎样才能改变打印出的字体大小?
- 怪问题!
- mnTiger进来取分!
begin
Parent := ToolBar1;
...
end;
Index是只读属性,自动编号的,没法改,按顺序加吧。