入门问题：用Delphi怎样动态生成控件?

[ozw]

比如我在窗口上放了一个Image1
现在要生成10各同样的Image

另外，退出程序的代码是什么？

[kevin_gao]

var
myImage:Timage;
begin
//.............
myImage:=Timage.Create(self);
//............
end;

可以通过close关闭主窗口，也就退出程序了。

application.Terminate 是退出整个应用程序。

[王集鹄]

var
I: Integer;
begin
for I := 1 to 1o do
with TImage.Create(Self) do begin
Parent := Self;
Top := I * 3;
Left := I * 3;
Picture.LoadFromFile('XXX.bmp');
end;
end;

[ozw]

procedure TForm1.Button4Click(Sender: TObject);
var
myImage:TImage;
begin
myImage:=Timage.Create(self);
myImage.Picture := Image1.Picture;
myImage.Top := Image1.Top;
myImage.Left := Image1.Left +Image1.Width;
myImage.Visible := TRUE;
end;

怎么没有一点效果？

[ozw]

zswang(伴水)　的代码不错！

给分了！

[ozw]

怪，给不了分
我再试一次

[王集鹄]

procedure TForm1.Button4Click(Sender: TObject);
var
myImage:TImage;
begin
myImage:=Timage.Create(self);
myImage.Parent := Self;
//~~~~~~~~~~~~~~~~~~~~~~~
myImage.Picture := Image1.Picture;
myImage.Top := Image1.Top;
myImage.Left := Image1.Left +Image1.Width;
myImage.Visible := TRUE;
end;

[王集鹄]

myImage.Picture.Assign(Image1.Picture); //建议使用

[ozw]

昨天给不了分，今天再来

[ozw]

重试

[ozw]

可能是CSDN的Bug，第一次给分出错，后面再给就不行了
实在是对不起zswang了

[王集鹄]

没有什么
Me too!
//look:
http://www.csdn.net/expert/topic/366/366396.shtm

[8追8梦8]

晚了

[myperry]

我同意zswang(伴水)的做法。