| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как Icon (Icon:hIcon) запихать в ImageList [D7, WinXP]
<b>He`KTo</b> © (2004-08-28 16:55:00)Я думаю что нужно Icon (var Icon:hIcon) преобразовать в Ico(var Ico:TIcon), а потом пихать в ImageList, но как это сделать не знаю....(вот как наоборот- знаю :d)
GuAV (2004-08-28 18:13:00) [1]>У меня нет этого примера в 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;
<b>He`KTo</b> (2004-08-28 17:55:00) [2]У меня нет этого примера в Help, только описание :
function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): TForm;
<b>He`KTo</b> (2004-08-28 17:46:00) [3]спасиб- посмотрю
GuAV (2004-08-28 17:43:00) [4]Посмотри CreateMessageDialog - там hIcon который LoadIcon(0, IconID); в TImage вставляют.
<b>He`KTo</b> (2004-08-28 17:40:00) [5]Если не сложно- напишите пример кода.
Как я делаю - ошибок нет но не работает!!!
Заранее благодарю!
GuAV (2004-08-28 17:26:00) [6]
> Я думаю что нужно Icon (var Icon:hIcon) преобразовать в
> Ico(var Ico:TIcon),
А я думаю, что нужно создать TIcon, присвоить его хендл hIcon а потом пихать. Или использовать WinAPI непосредственно.
| |
