|
|
|
новичок
участник
Last Login: 30.03.2006 14:24
Сообщ.: 6,
Visits: 67
|
|
Делаю прогу, которая должна будет иметь значок в трее с собственным меню. Проблема в пополнении этого меню итемами.
[code]
SetForegroundWindow(Form1->Handle);
hTrayMenu=CreateMenu();
MENUITEMINFO mii;
mii.cbSize=sizeof(MENUITEMINFO);
mii.fMask=MIIM_DATA||MIIM_TYPE||MIIM_CHECKMARKS||MIIM_ID||MIIM_STATE||MIIM_SUBMENU;
mii.fType=MFT_STRING;
mii.fState=MFS_ENABLED||MFS_DEFAULT;
// mii.wID=1442;
mii.hSubMenu=NULL;
mii.hbmpChecked=NULL;
mii.hbmpUnchecked=NULL;
// mii.dwItemData=0;
// mii.dwTypeData=AnsiString("Сменить фон").c_str();
mii.dwTypeData=PChar("Сменить фон\0");
mii.cch=12;
InsertMenuItem(hTrayMenu,1,true,&mii);
// InsertMenuItem(hTrayMenu,0,false,&mii);
POINT cp;GetCursorPos(&cp);
TrackPopupMenuEx(hTrayMenu, TPM_HORIZONTAL | TPM_LEFTALIGN, cp.x, cp.y, Form1->Handle, NULL);
[\code]
Нашёл пример в сборнике "Delphi World" - сделал всё по нему. Но пункт меню пустым получается, хоть убейся. В чем может быть дело?
|
|
|
|