Главная страница
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.021 c
1-1079254528
Tarquin
2004-03-14 11:55
2004.04.04
Как проверить существование файла при его удалении.


1-1077897634
Andrew
2004-02-27 19:00
2004.04.04
Сертификаты открытого ключа


14-1078899146
stone
2004-03-10 09:12
2004.04.04
Пришел спам


14-1078933131
Сатир
2004-03-10 18:38
2004.04.04
Внимание! Новый вид сетевого мошенства


3-1078235438
Masha Streltsova
2004-03-02 16:50
2004.04.04
Как узнать связанную через foreign key таблицу