如何动态的创建控件
例如
动态的测得一个数n
用循环创建n个image控件?
如何对他们的属性进行操作?
如何消毁所建控件?能写个小程序解释一个吗?
例如
动态的测得一个数n
用循环创建n个image控件?
如何对他们的属性进行操作?
如何消毁所建控件?能写个小程序解释一个吗?
解决方案 »
- 新手delphi问题 大家来看一下
- TIDTcpServer的writeln函数为什么会出现I/O 105 ERROR错误?
- 程序员职业规划
- 请教一个关于ImageList控件的非常奇怪的问题
- 怎么设置image1 的 canvans的自体为斜体或粗体或带下划线的 解决了马上结贴.在线等.
- 应用服务器的许可是怎么回事儿?
- delphi连接access问题(在线。。。)
- inno setup 问题
- 我想在数据库A1(Access数据库)根据一定条件生成另一数据库A2,,怎么实现?
- Delphi中有没有像VB中那个SendKeys之类的东东?
- 请问怎么向串口发送信息
- 能否控制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;