先建立一个tspeedbutton,把它设置为控件数组。
就OK了。
就OK了。
解决方案 »
- 动态加载DLL 为什么我这样报错?
- 大家都来谈自己的感受或想法,升星,散分!
- 关于fastreport问题,非常急,请大侠帮忙,不胜感激!(65分)
- 这么几天了,CSDN上的高手都跑哪儿去了?有谁能帮我解决这个CORBA的问题啊?
- 大家都来说说所用的delphi的版本!!评出目前最好的
- 控件的初始化事件中能不能访问数据库? 我这边总是 AV. 具体情况如下所述:
- How to add a nonscrolling region to a topic ?
- Delphi控件安装问题---.dcu 够吗?
- 关于我的未来,请各位过来的高手指点
- QUERY控件疑问!!!
- 关于case语句的问题
- Delphi6安装Rxlib2.75 for d6后出错
with TSpeedButton.Create(Self) do begin
Parent := Self;
Height := 22;
Width := 23;
Left := i * 23;
...
end;
tspeedbutton.parent := xxxxxxxx ;
tspeedbutton.left := xxxxxxxxxx ;
.
.
.
一堆乱七八糟的信息,然后create就可以了
spbtn:array[1..100] of TSpeedButton;
用时再动态生成控件
然后在myproc中判断sender以确认按下的speedbutton处理相应的方法
procedure TForm1.FormCreate(Sender: TObject);
var
e:array[1..100] of Tedit;
begin
e[1]:=e[1].Create(self);
e[1].Parent:=form1;
e[1].Left:=0;
e[1].Top:=0;
e[1].Text:='aaaaaaa';
end;编译时没错,可运行时说访问地址错,请各位指正。
var
e:array[1..100] of Tedit;
begin
e[1]:=e[1].Create(self);//错误,对象没创建,改为e[i]:=Tedit.create(self);
e[1].Parent:=form1;
e[1].Left:=0;
e[1].Top:=0;
e[1].Text:='aaaaaaa';
end;