Скачать: CL | DM;

PopUp Menu   Найти похожие ветки 

← →
rOOse ©   (2006-02-08 13:46) [0]

Есть такой код:

ListBox := CreateWindow("LISTBOX", "", WS_VISIBLE or WS_CHILD or WS_VSCROLL or  LBS_NOTIFY or LBS_STANDARD, 4, 24, 288,100, handle, 0, hInstance, nil);

теперь если я пишу так:

function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer; stdcall;
begin
 Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
 { Checks for messages }
 if (lParam = ListBox ) and (uMsg= WM_RBUTTONDOWN)  then DisplayMenu;
 if uMsg = WM_DESTROY then   halt;
end;

то при клике на listbox меню не выводится. Почему?

---

← →
Don Nikola   (2006-02-08 14:11) [1]

Может if (hWnd = ListBox ) and (uMsg= WM_RBUTTONDOWN)  then DisplayMenu;

---

← →
begin...end ©   (2006-02-08 14:40) [2]

Ловить WM_CONTEXTMENU, проверять равенство ListBox = HWND(wParam).

---

← →
rOOse ©   (2006-02-09 17:14) [3]

Спасибо!
А как добавить пункты к главному меню н:р File-> Open
а то у меня рядом добавляются?

---

← →
XProger ©   (2006-02-09 23:56) [4]

Что-то по аналогии с:

                // Создание главного меню программы
                  m_main := CreateMenu;
                // Меню "Чат"
                  m_chat := CreatePopupMenu;
                  AppendMenu(m_chat, MF_STRING, MENU_CONNECT, "Соединение");
                  AppendMenu(m_chat, MF_STRING, MENU_OPTIONS, "Опции");
                  AppendMenu(m_chat, MF_SEPARATOR, 0, "-");
                  AppendMenu(m_chat, MF_STRING, MENU_EXIT, "Выход");
                // Добавляем пункты в главное меню
                  AppendMenu(m_main, MF_POPUP, m_chat, "Чат");
                  AppendMenu(m_main, MF_STRING, MENU_ABOUT, "О программе");
                // Ровняем кнопку "О программе" по правому краю
                  ModifyMenu(m_main, 1, MF_BYPOSITION  or MF_HELP, MENU_ABOUT, "О программе");
                // Устанавливаем меню для главного окна
                  SetMenu(hwnd, m_main);


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c