| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Нужно выдрать иконку MDIChild окна [D5, WinXP]

Wizard_Ex ©   (2003-09-29 17:43:00) 

ХМ!
Icon.Handle := GetClassLong(AHandle,GCL_HICONSM);

AHandle - Handle MDICHild окна

а почему-то Icon.Handle равен нулю
Как быть?

---

Wizard_Ex   (2003-09-30 14:59:00) [1]

ХМ, а про WM_QUERYDRAGICON не знал, что поможет, хотя именно с ее помощью и возвращается то что надо

но, небольшое НО
нужна маленькая иконка, а Handle от большой (32*32)

сделал так
Icon := TIcon.Create;
Icon.Handle := GetIconFromWindow(AHandle);

sbButton.Glyph.Width := 16;
sbButton.Glyph.Height := 16;

DrawIconEx(sbButton.Glyph.Canvas.Handle,0,0,Icon.Handle,16,16,0,0,DI_NORMAL);
Icon.ReleaseHandle;
Icon.Free;
Работает

Всем спасибо!

---

jonni   (2003-09-30 00:03:00) [2]

function GetIconFromWindow(hWnd:HWND;):HICON;
var
Ico:HICON;
begin
Ico:=0;
SendMessageTimeout(hwnd, WM_GETICON, ICON_SMALL, 0, SMTO_ABORTIFHUNG, 1000, LongWord(ico));
if (ico = 0) then ico := GetClassLong(hwnd, GCL_HICONSM);
if (ico = 0) then SendMessageTimeout(hwnd, WM_GETICON, ICON_BIG, 0, SMTO_ABORTIFHUNG, 1000, LongWord(ico));
if (ico = 0) then ico := GetClassLong(hwnd, GCL_HICON);
if (ico = 0) then SendMessageTimeout(hwnd, WM_QUERYDRAGICON, 0, 0, SMTO_ABORTIFHUNG, 1000, LongWord(ico));
if (ico = 0) then ico:=LoadIcon(0,IDI_APPLICATION);
result:=Ico;
end;

---

Игорь Шевченко   (2003-09-29 18:01:00) [3]

WM_GETICON

---

Наверх