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

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

Не срабатывает wm_DrawItem и wm_MeasureItem [D3, WinXP]


half_litre ©   (2004-10-25 11:23:00) 

Есть :  samePopup : TPopupMenu
procedure WMDrawItem(var Msg:TWMDrawItem);
          message wm_DrawItem
procedure WMMeasureItem(var Msg:TWMMeasureItem);message                     wm_MeasureItem;

На OnShow :
for i:=0 to samePopup.Items.Count-1 do begin
     ModifyMenu(samePopup.Handle,i,MF_BYPOSITION +MF_OWNERDRAW,  
     GetMenuItemID(samePopup.Handle,i),
     PChar(samePopup.Items[I].Caption));
end;
Трабл :
Не срабатывают wm_DrawItem и wm_MeasureItem
Зарание thx за помощь


half_litre   (2004-10-25 11:31:00) [1]

Дык : ModifyMenu(...MF_OWNERDRAW...)


DVM   (2004-10-25 11:28:00) [2]

стиль OwnerDraw присутствует?


Наверх

Титульная страница Поиск, карта сайта Написать письмо