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

Вниз

раскрытие MenuItem   Найти похожие ветки 

 
mega   (2004-12-14 16:59) [0]

Привет, Мастера. Есть пункт меню с подменю, как оследить событие,когда пользователь раскрыл и закрыл подменю? Или его текущее состояние (закрыто/открыто)?


 
Piter ©   (2004-12-14 22:08) [1]

mega   (14.12.04 16:59)

а зачем это нужно?


 
Игорь Шевченко ©   (2004-12-14 23:58) [2]


> Есть пункт меню с подменю, как оследить событие,когда пользователь
> раскрыл



unit main;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 Menus;

type
 TfMain = class(TForm)
   MainMenu1: TMainMenu;
   File1: TMenuItem;
   N1: TMenuItem;
   Open1: TMenuItem;
   N2: TMenuItem;
   Save1: TMenuItem;
   Saveas1: TMenuItem;
   N3: TMenuItem;
   Exit1: TMenuItem;
   Text1: TMenuItem;
   Binary1: TMenuItem;
 private
   procedure WMInitMenuPopup (var Message : TWMInitMenuPopup);
      message WM_INITMENUPOPUP;
 end;

var
 fMain: TfMain;

implementation

{$R *.DFM}

{ TfMain }

procedure TfMain.WMInitMenuPopup(var Message: TWMInitMenuPopup);
var
 SubMenu, NewItem: TMenuItem;
begin
 SubMenu := MainMenu1.FindItem (Message.MenuPopup, fkHandle);
 if Assigned(SubMenu) then begin
   NewItem := TMenuItem.Create(Self);
   NewItem.Caption := "New item";
   SubMenu.Add (NewItem);
 end;
end;

end.


При закрытии меню, по-моему, окну посылается сообщение WM_EXITMENULOOP

С уважением,


 
mega   (2004-12-15 08:37) [3]

Можеть есть какие нибудь варианты?


 
Gero ©   (2004-12-15 08:38) [4]

Мда, чукча не читатель, чукча писатель.


 
mega   (2004-12-15 08:41) [5]

Виноват - из кеша открыл... Спасибо за ответ.


 
Leonid Troyanovsky ©   (2004-12-15 10:33) [6]


> mega   (14.12.04 16:59)  
> Привет, Мастера. Есть пункт меню с подменю, как оследить
> событие,когда пользователь раскрыл и закрыл подменю? Или


В форме, владеющей этим меню, надо сделать обработчик
message WM_MENUSELECT (var msg: TWMMenuSelect)
(не забыть вызов inherited).

Анализируя msg.MenuFlag на наличие MF_POPUP можно
узнать, что выбран пункт, содержащий подменю.
Идентифицировать TMenuItem можно сравнивая его
Command v msg.IDItem (рекурсивный поиск).

Закрывается меню при (msg.MenuFlag = $FFFF) and (msg.Menu=0).

--
С уважением, LVT.


 
Экспериментатор   (2004-12-15 13:35) [7]

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



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

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

Наверх




Память: 0.46 MB
Время: 0.034 c
1-1102749012
klyg
2004-12-11 10:10
2004.12.26
String to PAnsiChar


9-1093143246
Xerx
2004-08-22 06:54
2004.12.26
Где достать модели косм. кораблей?


4-1100327202
ддд
2004-11-13 09:26
2004.12.26
service & tray icon


14-1102490694
AlexG
2004-12-08 10:24
2004.12.26
Важно ваше мнение!


14-1102498783
Delphin
2004-12-08 12:39
2004.12.26
Умер комп





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский