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

Вниз

Проблема с курсором   Найти похожие ветки 

 
Alex300   (2003-07-22 09:33) [0]

Проблема такая: у меня в таймере переоткрывается запрос. Если в этот момент активно PopupMenu или MainMenu и курсор находится над ними, то песочные часы зависают.
Вопрос: как в таймере узнать активно ли меню?


 
___Nikolay ©   (2003-07-22 11:52) [1]

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.



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

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

Наверх




Память: 0.46 MB
Время: 0.011 c
14-10439
nick-from
2003-07-14 17:38
2003.08.04
вчем отличия телефонов?


14-10453
Sectey
2003-07-18 13:11
2003.08.04
Midas и TCP/IP


1-10300
BOA_KAA
2003-07-22 13:15
2003.08.04
wsMaximized


1-10264
cjiohobaji
2003-07-21 05:05
2003.08.04
кто-нибудь делал отчёты, не с БД а со своих данных, с программы


14-10443
nick-from
2003-07-16 19:51
2003.08.04
Посоветуйте корпус + кулер