如何动态的创建控件

erbao_cui 2002-12-19 09:57:21
如何动态的创建控件
例如
动态的测得一个数n
用循环创建n个image控件?
如何对他们的属性进行操作?
如何消毁所建控件?

能写个小程序解释一个吗?
...全文
48 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
wjlsmail 2002-12-19
  • 打赏
  • 举报
回复
var
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;
zsy_good 2002-12-19
  • 打赏
  • 举报
回复
呵呵可以结贴了
My_first 2002-12-19
  • 打赏
  • 举报
回复
public
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;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧