ایجاد یک عنصر در زمان اجرای برنامه

[iman-63]

سلام.
چطور میتوتم در هنگام اجرای برنامه یک عنصر را به فرم اضافه کنم.
مثلاً در یک برنامه n تصویر دارم که چون تعداد آن مشخص نیست میخوام به ازای اضافه شدن هر تصویر یک عنصر image هم اضافه کنم.
لطفاً راهنمایی کنید.
با تشکر

[hadisalahi2]

باید با استفاده از متد Creat از کامپوننت مورد نظرت این کار رو انجام بدی.

[مجتبی تاجیک]

باید یک نمونه از کلاس مورد نظرتون رو بسازید ، مثلا :
var
IMG: TImage;
begin
IMG:= TImage.Create(Self);
IMG.Parent:= Self;
With IMG do
begin
Top:= 10;
Left:= 10;
Height:= 400;
Width:= 400;
Picture.LoadFromFile('G:\JPG\Best Graphic\1 (1).jpg');
end;
end;

[Pascal]

var
Form1: TForm1;
I : Integer = 0 ;
II: Integer = 1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
With TImage.Create(self) do begin
left := 20;
top:= 30+I;
width := 20;
Height:=20;
picture.LoadFromFile(ExtractFilePath(Application.E xeName)+'Image\Image'+IntToStr(II)+'.bmp');
Name := 'Image'+IntToStr(I);
Parent:=Form1;
Transparent := True;
end;
Inc(I,25);
Inc(II,1);
end;