Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

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

 
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;

Желательно после использования освободить массив картинок.


 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
8-1076628124
Builder
2004-02-13 02:22
2004.04.11
MediaPlayer


3-1081767988
asafr
2004-04-12 15:06
2004.04.11
ADO, Access 2000: "Нераспознаваемый формат базы данных"...


1-1082471791
UnDISCOvery
2004-04-20 18:36
2004.04.11
ActionToolBar. Проблемы с отрисовкой. Как бороть ???


8-1071314542
serg128
2003-12-13 14:22
2004.04.11
Как можно перехватить звукоквой и видеопоток на удаленной машине?


7-1080287700
Ghost
2004-03-26 10:55
2004.04.11
Система