如何动态的创建控件
例如
动态的测得一个数n
用循环创建n个image控件?
如何对他们的属性进行操作?
如何消毁所建控件?能写个小程序解释一个吗?
例如
动态的测得一个数n
用循环创建n个image控件?
如何对他们的属性进行操作?
如何消毁所建控件?能写个小程序解释一个吗?
解决方案 »
- 第一次查询很快,4秒,第二次要40秒,为什么?
- 编写dll时二维数组这样写可以吗,那在VB中如何调用这个DLL
- 关于fastreport100分在线等待!
- 使用INDY出现 cannot allocate stocket错误怎么解决啊?
- 请教高手:delphi在连接oracle数据库时的问题
- 关于doa控件使用的一个很菜的问题?
- 如何安全的从动态控件数组中删除数据??????????????
- 怎样ClientSocket OnRead接受一个TMemoryStream啊? 100分
- D7+RO6+DATASNAP+DBX为什么用POOLING模式时关闭服务端出错
- 一个多线程的问题!
- 请问怎么向串口发送信息
- 能否控制dbgrid显示的行数啊????
Procedure crea(N:integer);...
Procedure Tform.crea(N:integer);
Edits: array of TEdit;
Begin
n := 5;
SetLength(Edits, n);
for i:=0 to n-1 do
Begin
Edits[i] := TEdit.Create;
edits[i].caption:='caption'+inttostr(i);
edits[i].onclick:=myclick;//自定义事件、过程
end;
end;procedure tform1.button1click(sender:object);
bEGIN
CREA(10); //创建10个edit.名字分别是edit1..edit10
END;
i: Integer;
begin
for i := 0 to 9 do
begin
with TMyButton.Create(Self) do //随窗体释放
begin
Name := 'MyButton' + IntToStr(i);
Top := 100 + 20 * i;
Left := 100;
Width := 100;
Height := 20;
Parent := Form1;
Caption := 'Try' + IntToStr(i);
OnClick := WhenClickMe ;
end;
end;