Скачать: CL | DM;

Помогите создать объект   Найти похожие ветки 

← →
Kupnu4   (2004-03-17 20:15) [0]

У меня есть TImage с иконкой. Мне нужно в коде описать новый объект TImage с той же иконкой.

---

← →
lipskiy ©   (2004-03-18 00:14) [1]

Загрузи иконки в имейджлист, а из него программно грузи их в имейджи:
ImageList1.GetBitmap(0,Image1.Picture.Bitmap); // загружает в Image1 картинку из ImageList1 с индексом 0.

---

← →
Defunct ©   (2004-03-18 02:10) [2]

> Загрузи иконки в имейджлист, а из него программно грузи их в имейджи

Все, что бы вы ни делали на компьютере, выполняется программно

> У меня есть TImage с иконкой. Мне нужно в коде описать новый объект TImage с той же иконкой.

procedure TForm1.Button1Click(Sender: TObject);
begin
 With TImage.Create(Self) Do
 Begin
   Top := 100;  
   Left := 100;  
   Parent := Self;
   Width := Image1.Width;
   Height := Image1.Height;
   Picture.Graphic := Image1.Picture.Graphic;
 End;
end;

---

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

Скачать: CL | DM;



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