Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.04;
Скачать: 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 вся ветка

Текущий архив: 2004.04.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
6-1075125258
nesovsemlamer
2004-01-26 16:54
2004.04.04
Передача изображения рабочего стола по протоколу TCP


9-1062863769
AdMiRaL
2003-09-06 19:56
2004.04.04
2D Engine


7-1073914819
Sergant
2004-01-12 16:40
2004.04.04
Прямая работа с портами


4-1075466636
stepan_mk
2004-01-30 15:43
2004.04.04
Робота с DLL


3-1078569361
dir_err
2004-03-06 13:36
2004.04.04
создаие аналога