Вниз
Скачать: CL | DM;

Выпадающее меню....   Найти похожие ветки 

← →
yarkeyev   (2005-05-19 20:22) [0]

делаю эмуляцию работы аськи 2003
есть кнопка, нужено чтобы при нажатии на нее левой кнопкой мыши появлялось выпадающее меню с пунктами меню, есть варианты?


← →
kat ©   (2005-05-19 20:49) [1]

вот исходник на С++ для WinApi (лень переводить) :
//переменные
HMENU men;
const int ID_M1=7130;
const int ID_M2=7131;
//создание меню
men=CreatePopupMenu();
InsertMenu(men, -1, 0, ID_M1, "1");
InsertMenu(men, -1, 0, ID_M2, "Exit");
//в обработчике события
case WM_USER+123:
  TrackPopupMenu(men,0,wParam+stx+265,
                                sty+24+lParam,50,h,0);
  break;
case WM_COMMAND:
  wmId    = LOWORD(wParam);
  wmEvent = HIWORD(wParam);
  // Parse the menu selections:
  switch (wmId)
  {
   case ID_M2:
      SendMessage(h,WM_DESTROY,0,0);
      break;
   case ID_M1:
      MessageBox(h,"=)","=))",MB_OK);    
      break;
   default:
      return DefWindowProc(hWnd, message, wParam, lParam);
  }
  break;

//в данном случае нажатие кнопки отлавливала библиотека с "хуком", и отсылала моей форме сообщение WM_USER+123, а та уже в свою очередь создавала меню и обрабатывала для него события.

Если ничего не ясно, гоу учить винапи и С++



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

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



Память: 0.45 MB
Время: 0.022 c
3-1115108938
Pozhid-Ig
2005-05-03 12:28
2005.06.06
Работа с пустой таблице через ADO...


6-1110103285
leonidus
2005-03-06 13:01
2005.06.06
idHTTP при работе в потоке


1-1116591481
Вопрошающий
2005-05-20 16:18
2005.06.06
Хинты для TStringGrid


14-1116641547
Jeka
2005-05-21 06:12
2005.06.06
Цифровой фотоаппарат


14-1116428066
Jeer
2005-05-18 18:54
2005.06.06
Free Pascal via Delphi




   Наверх