Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.06;
Скачать: CL | DM;

Вниз

Обработчик выбора пункта PopupMenu   Найти похожие ветки 

 
Prov   (2005-09-07 12:12) [0]

Доброе время суток, господа. Нарисовал маленькое попап меню.
procedure ShowPopupMenu;
 var lpPoint: TPoint;
begin
 PopupMenu:= CreatePopupMenu;
 AppendMenu(PopupMenu, MF_STRING or MF_GRAYED, 0, "m e n u");
 AppendMenu(PopupMenu, MF_SEPARATOR, 0, "");
 AppendMenu(PopupMenu, MF_STRING, 0, "Пункт меню");
 GetCursorPos(lpPoint);
 TrackPopupMenu(PopupMenu, TPM_RETURNCMD, lpPoint.X, lpPoint.Y, 0, Handle, nil);
end;

В МСДН написано, что при указании флага TPM_RETURNCMD функция будет возвращать номер выбранного элемента и т.д. Не подскажите ли Вы мне, как забрать результат нажатия левой кнопки мыши на моем меню ? Что-то я сам не могу разобраться. Заранее спасибо )


 
ShiFT   (2005-09-07 12:21) [1]

const
miID1 = 1;
miID2 = 2;
.....
 AppendMenu(PopupMenu, MF_STRING, miID1, "Пункт меню 1");
 AppendMenu(PopupMenu, MF_STRING, miID2, "Пункт меню 2");
.....
function WindowProc( wnd : HWND; Msg : Integer; WParam : WParam; LParam : Longint): Longint; stdcall;
.....
 case msg of
   WM_COMMAND : case LoWord(wParam) of
     miID1 : ; //ТутВыполнйТоЧтоТебеНадо
     miID2 : ; //ТутВыполнйТоЧтоТебеНадо
   end;
 else
   Result := DefWindowProc( wnd, msg, wparam, lparam);
 end;
end;


 
Prov   (2005-09-07 12:35) [2]

:) так просто. Спасибо большое. Что-то я пропустил этот момент.



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

Текущий архив: 2005.11.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.05 c
1-1129052350
SergProger
2005-10-11 21:39
2005.11.06
Типы файлов. Иконка файла.


14-1129414319
TStas
2005-10-16 02:11
2005.11.06
Что почитать про handle и hook?


1-1129286094
Sergey_R
2005-10-14 14:34
2005.11.06
Завершение потока


14-1129269544
Kot Andrei
2005-10-14 09:59
2005.11.06
отношение сигнал шум


14-1129612619
Ega23
2005-10-18 09:16
2005.11.06
С днем рождения! 18 октября