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

Как Icon (Icon:hIcon) запихать в ImageList   Найти похожие ветки 

← →
<b>He`KTo</b>   (2004-08-28 16:55) [0]

Я думаю что нужно Icon (var Icon:hIcon) преобразовать в Ico(var Ico:TIcon), а потом пихать в ImageList, но как это сделать не знаю....(вот как наоборот- знаю :d)

---

← →
GuAV ©   (2004-08-28 17:26) [1]

> Я думаю что нужно Icon (var Icon:hIcon) преобразовать в
> Ico(var Ico:TIcon),

А я думаю, что нужно создать TIcon, присвоить его хендл hIcon а потом пихать. Или использовать WinAPI непосредственно.

---

← →
<b>He`KTo</b>   (2004-08-28 17:40) [2]

Если не сложно- напишите пример кода.
Как я делаю - ошибок нет но не работает!!!
Заранее благодарю!

---

← →
GuAV ©   (2004-08-28 17:43) [3]

Посмотри CreateMessageDialog - там hIcon который LoadIcon(0, IconID); в TImage вставляют.

---

← →
<b>He`KTo</b>   (2004-08-28 17:46) [4]

спасиб- посмотрю

---

← →
<b>He`KTo</b>   (2004-08-28 17:55) [5]

У меня нет этого примера в Help, только описание :
function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): TForm;

---

← →
GuAV ©   (2004-08-28 18:13) [6]

>У меня нет этого примера в Help
Я имел ввиду другое, мою анкету смотри.
Вот сам ещё пример написал:
procedure TForm1.FormCreate(Sender: TObject);
var Icon: TIcon;
begin
 Icon:=TIcon.Create;
 try
   Icon.Handle:=LoadIcon(0, IDI_QUESTION);
   Image1.Picture.Icon.Assign(Icon); //юзаем
 finally
   Icon.Free;
 end;
end;

---

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

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



Память: 0.46 MB
Время: 0.019 c