Главная страницаОбратная связьКарта сайта

Каким образом узнать, открыто меню или нет


type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Item01: TMenuItem;
    Item11: TMenuItem;
    Item21: TMenuItem;
  private
    { Private declarations }
  public
    procedure WMMenuSelect(var M: TWMMenuSelect); message
      WM_MENUSELECT;
  end;

implementation

{$R *.RES}

procedure TForm1.WMMenuSelect(var M: TWMMenuSelect);
begin
  inherited;
  { Этот Beep сигнализирует вообще об открытии меню }
  MessageBeep(MB_ICONASTERISK);
  { А зтот Beep - только о выборе в меню нового Item }
  if M.Menu = MainMenu1.Handle then
    MessageBeep(MB_ICONASTERISK);
end;

end.


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Каким образом узнать, открыто меню или нет", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info