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

Вниз

как ловить пункт меню который становится синим   Найти похожие ветки 

 
Silver_   (2003-02-20 16:23) [0]

можа кто скажет как ловить пункт меню который становится синим


 
Th ©   (2003-02-20 16:24) [1]

Синим - выбирается пользером что ли?


 
Silver_   (2003-02-20 16:27) [2]

ладно кажу иначе
- гуляю по меню...
- ...как ловить пункт меню который выделен в данный момент


 
Th ©   (2003-02-20 16:27) [3]

The WM_MENUSELECT message is sent to a menu"s owner window when the user selects a menu item.

WM_MENUSELECT
uItem = (UINT) LOWORD(wParam); // menu item or submenu index
fuFlags = (UINT) HIWORD(wParam); // menu flags
hmenu = (HMENU) lParam;


 
Silver_   (2003-02-20 16:33) [4]

Th ©

если не трудно кинь в меня примерчиком
а то с API я на вы, увы :((((((((((((( плз. (если есть конечно)


 
Th ©   (2003-02-20 16:47) [5]

Примерчика нет, но API тут в общем-то особо ни причем, все очень просто. Предположим есть у тебя форма MyForm: TMyForm. Ей в зоне protected пишешь:
procedure WMMenuSelect(var Msg: TWMMenuSelect); message WM_MENUSELECT;
потом в теле модуля:

procedure TMyForm.WMMenuSelect;
begin
(*
А здесь делаешь все, что хотел. Причем:
Msg.Menu - handle того меню, в которм выделение было
Msg.IDItem - номер выбранного пункта
*)
inherited;
end;



 
Silver_   (2003-02-20 16:57) [6]

2 Th ©

спасиба наконец-то врубил мена в
(лови сообщение, лови то, лови ето, а как???)

Th © еще раз пасиба :)


 
Silver_   (2003-02-20 17:41) [7]

Th ©
с " TMainMenu" запахало за это сенькс
тока есть но
- я использую " TActionMainMenuBar " и здесь ноль емоций :(,
можа сообщение другое (надеюсь ты в курсе),
здемс... :)



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

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

Наверх




Память: 0.47 MB
Время: 0.023 c
14-5849
Ксюша
2003-02-12 08:54
2003.03.03
Женщины и программирование


14-5710
alex_bredin
2003-02-12 10:41
2003.03.03
InstallShield Express for Delphi 6


6-5706
Sniffer
2003-01-12 18:51
2003.03.03
ServerSocket и ClientSocket


14-5741
Vitek
2003-02-15 23:06
2003.03.03
Каталоги


1-5487
PrettyFly
2003-02-20 16:44
2003.03.03
Edit in TTreeView