Не срабатывает wm_DrawItem и wm

← →
half_litre (2004-10-25 11:23) [0]

Есть : 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 за помощь

← →
DVM © (2004-10-25 11:28) [1]

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

← →
half_litre (2004-10-25 11:31) [2]

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

Не срабатывает wm_DrawItem и wm_MeasureItem Найти похожие ветки