Отвечает: Gh0stik
Здравствуйте, Костенко Игорь Викторович!
Предлагаю на Ваш суд такой способ:
procedure TForm1.Button18Click(Sender: TObject);
var i,n,m:integer;
begin
n:=4; {сколько штук}
m:=40; {размері объекта}
for i:=1 to n do
begin
TImage.Create(Self).Name:='MyImage' + IntToStr(i);
with TImage(FindComponent('MyImage'+ IntToStr(i))) do
begin
Left:=i*50; //вычисляем положение левого угла объекта
{top:=... так же можно расчитать положение и по вертикали}
Width:=m;
Height:=m; //сотворяем объект размера M*M.
Parent:=Form1;
Picture.LoadFromFile('img.bmp'); //загружаем картинку
end;
end;
end;
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 27.03.2007, 13:16 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо. Как раз то, что мне было нужно.
Отвечает: василий1
Здравствуйте, Костенко Игорь Викторович!
copy&paste
ctrl+с
ctrl+v
Ответ отправил: василий1 (статус: 1-ый класс)
Ответ отправлен: 27.03.2007, 15:55
