Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

13th
Июл

Загрузить иконку окна из imagelist

Posted by micher under Delphi

Человек_Борща

Проблема:
Есть форма, при нажатии одной кнопки эта форма должна показывать одну иконку, при нажатии другой кнопки другую иконку.

Пробовал



ImageList.GetIcon(SomeIndex,myForm.Icon);

Пробовал даже так:



var

ic:TbitMap;

begin

ic:=TBitMap.Create;

ImageList.GetBitMap(SomeIndex,ic);

TMyForm.Icon.assign(ic);

...

Ic.free;

но неработает.

mihali4

Все очень просто:



procedure TForm2.Button1Click(Sender: TObject);

begin

ImageList1.GetIcon(0,Icon);

end;
procedure TForm2.Button2Click(Sender: TObject);

begin

ImageList1.GetIcon(1,Icon);

end;

тема на форуме