Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

Image   Найти похожие ветки 

← →
Cref12   (2004-04-21 02:40) [0]

Подскажите пожалуйста как создать массив Timage, каждый элемент которого создается программно и в него загружается картинка? НО ЧТОБЫ КАЖДЫЙ ЭЛЕМЕНТ МАССИВА ОТОБРАЖАЛСЯ НА ФОРМЕ!!!

---

← →
Cref12   (2004-04-21 02:40) [0]

Подскажите пожалуйста как создать массив Timage, каждый элемент которого создается программно и в него загружается картинка? НО ЧТОБЫ КАЖДЫЙ ЭЛЕМЕНТ МАССИВА ОТОБРАЖАЛСЯ НА ФОРМЕ!!!

---

← →
Алхимик ©   (2004-04-21 02:55) [1]

Пжалста
var
 ImgArray: array [0..N] of TImage;
...
for i := 0 to N do begin
  ImgArray[i] := TImage.Create(<владелец>);
  with TImage(ImgArray[i]) do begin
     Parent := <имя формы>;    
     Top := <>;
     Left := <>;
     // поиграй сам с координатами
     Picture.LoadFromFile(<имя файла картинки>);
  end;
end;
Желательно после использования освободить массив картинок.

---

← →
Алхимик ©   (2004-04-21 02:55) [1]

Пжалста
var
 ImgArray: array [0..N] of TImage;
...
for i := 0 to N do begin
  ImgArray[i] := TImage.Create(<владелец>);
  with TImage(ImgArray[i]) do begin
     Parent := <имя формы>;    
     Top := <>;
     Left := <>;
     // поиграй сам с координатами
     Picture.LoadFromFile(<имя файла картинки>);
  end;
end;
Желательно после использования освободить массив картинок.

---

← →
Andy BitOff ©   (2004-04-21 02:59) [2]

new:=TImage.Create(MainForm);
TImage(New).Name:=New.ClassName + IntToStr(No);
TImage(new).Picture.LoadFromFile("eee.bmp");
TImage(new).Parent:=MainForm;

А массив вот:

for i:=0 to MainForm.ControlCount-1 do begin
 if MainForm.Controls[i] is TImage then begin
   //Image
 end;
end;

---

← →
Andy BitOff ©   (2004-04-21 02:59) [2]

new:=TImage.Create(MainForm);
TImage(New).Name:=New.ClassName + IntToStr(No);
TImage(new).Picture.LoadFromFile("eee.bmp");
TImage(new).Parent:=MainForm;

А массив вот:

for i:=0 to MainForm.ControlCount-1 do begin
 if MainForm.Controls[i] is TImage then begin
   //Image
 end;
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.042 c