PDA

View Full Version : ایجاد یک عنصر در زمان اجرای برنامه



iman-63
چهارشنبه 17 شهریور 1389, 12:25 عصر
سلام.
چطور میتوتم در هنگام اجرای برنامه یک عنصر را به فرم اضافه کنم.
مثلاً در یک برنامه n تصویر دارم که چون تعداد آن مشخص نیست میخوام به ازای اضافه شدن هر تصویر یک عنصر image هم اضافه کنم.
لطفاً راهنمایی کنید.
با تشکر

hadisalahi2
چهارشنبه 17 شهریور 1389, 12:27 عصر
باید با استفاده از متد Creat از کامپوننت مورد نظرت این کار رو انجام بدی.

Felony
چهارشنبه 17 شهریور 1389, 12:44 عصر
باید یک نمونه از کلاس مورد نظرتون رو بسازید ، مثلا :
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
چهارشنبه 17 شهریور 1389, 13:26 عصر
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;