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

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

type
   TForm1 = class(TForm)
     // ... 
  private
     IsMenuOpen: Boolean;
     procedure WMMENUSELECT(var message: TWMMENUSELECT); message WM_MENUSELECT;
   end;

   implementation

 procedure TForm1.WMMENUSELECT(var message: TWMMENUSELECT);
 begin
   inherited;
   IsMenuOpen := not ((message.MenuFlag and $FFFF =  0) and (message.Menu = 0));
 end;

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


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

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


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