Greetings All!
Есть задача.
Когда выпадает главное меню, создать в нём элементы, проинициализировать их (это я , ессно, и сам сделал), а потом регулярно обновлять до тех пор, пока меню не закроется(то есть пока юзверь не переключится на какой-нибудь другой контрол).
В чём вопрос: как узнать, нажат ли сейчас именно нужный пункт меню? Чтобы я в таймере мог его опрашивать на состояние.

Ну, думаю может создать глобальную переменную, в которую по событию OnClick записывать Sender, а потом уже глядеть на него...

OnClick - чего?
А если юзверь втихаря кликнул где-нить по форме, на которую я онклик не хочу делать? Тогда менюшка закроется и всё, а я этого не услежу.

Есмли нажат, то в OnClick
Чтобы получить имя объекта, который нажат (предварительно повесив процедуру на ВСЕ элементы MainMenu), можно так:
Sender.Name или ( Sender as TMainMenu ) . Name, щас точно не помню...

Вроде тебе именно это нужно.

Цитата(December @ 23.10.2004, 21:04)

OnClick - чего?

Итема меню...

Код

... interface type TForm1 = class... ...  procedure OnClickMenu(Sender:TObject); ... implementation; ... var ClickMenu: TMenuItem; ... procedure TForm1.OnClickMenu(Sender: TObject); begin ClickMenu:=sender as TMenuItem end; ...     MyMenuItem:=TMEnuItem.Create...     ...    MyMenuItem.OnClick:=ClickMenu;    ...

Как насчёт клика на форме?
Вот и чат пошёл...

А для чего клик на форме, ведь мы с меню работаем-с...
Добавлено @ 20:15

Цитата(December @ 23.10.2004, 21:10)

Вот и чат пошёл...

Дык енто есть гуд! Быстрее поможем-с...

Pakshin A. S.
Mal Hack
Ещё раз опишу постановку вопроса.
До тех пор, пока какая-то часть главного меню "выпала" (то есть нажат итем "Файл", и видны New, Open, Save etc.) нужно чёто делать раз в полсекунды. То есть надо отловить момент, когда это самое меню закроется, чтобы перестать чё-то делать.
Как вы понимаете, менюшка может закрыться не только от клика в самом меню.

Извините,
Удаляюсь из-за того, что ответа не знаю, и дабы не быть улеченным во флейме..
Может к завтрашнему дню смогу дать ответ...

1)Событие OnClick - срабатывает на пункте если мы по нему кликнули или если данный пункт имеет подменю(а точнее подпункты) и оно активировалось... как следствие - повесив обработчик на OnClick мы можем узнать что меню активировалось и какое енто меню, а также узнать информацию о подменю(и при необходимости что нить изменить ).

2)Из ходя из 1 пункта мы знаем что меню... активно. Но нам надо знать что меню закрылось... для ентого ловим сообщение WM_CAPTURECHANGED или его не видно WM_UNINITMENUPOPUP.

Пример для первого и второго пункта:

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, Menus, StdCtrls, ComCtrls; type  TForm1 = class(TForm)    MainMenu1: TMainMenu;    N1231: TMenuItem; //Какой то пункт    N23551: TMenuItem; //Какой то пункт    N1231231: TMenuItem; //Какой то пункт    N1231111: TMenuItem; //Какой то пункт    Timer1: TTimer; //Какой то пункт    N2341: TMenuItem; //Какой то пункт    N2342: TMenuItem; //Какой то пункт    N234541: TMenuItem; //Какой то пункт    N23421: TMenuItem; //Какой то пункт    ertert1: TMenuItem; //Какой то пункт    N1: TMenuItem; //Какой то пункт    N123121: TMenuItem; //Какой то пункт    N1231232: TMenuItem; //Какой то пункт    N2343: TMenuItem; //Какой то пункт    procedure Timer1Timer(Sender: TObject);    procedure WndProc(var Message: TMessage); override;    procedure N1231Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1;  f:boolean=false; //флаг активности implementation {$R *.dfm} procedure TForm1.WndProc(var Message: TMessage); begin if f then  begin   if (Message.Msg=WM_UNINITMENUPOPUP) then    Caption:='Мдя... Че-то меня не видно! Но я активен!' else    if (Message.Msg=WM_CAPTURECHANGED) then     begin      Caption:='Ёпс!... ты че вышел?';      f:=false; //Сбрасываем флаг активности     end else inherited;  end else inherited; end; procedure TForm1.Timer1Timer(Sender: TObject); begin EndMenu; //закрываем меню Timer1.Enabled:=false; end; procedure TForm1.N1231Click(Sender: TObject); //Вешаем на все пункты меню :) begin Caption:=IntToStr(TMenuItem(Sender).MenuIndex); if (TMenuItem(Sender).Count>0) then  begin   if f=false then    begin     Timer1.Interval:=10000; //Ставим таймер для автоматического закрытия     Timer1.Enabled:=true;     Timer1.OnTimer:=Timer1Timer;    end;   f:=true; //меню активированно!  end; end; end.

Удачи.

Это сообщение отредактировал(а) Girder - 24.10.2004, 02:23

Присоединённый файл ( Кол-во скачиваний: 10 )
 eMenu.zip

Лови сообщение WM_COMMAND и LoWord(wParam) даст CommandID пункта меню, к-рый юзер щелкнул. Затем по FindItem ищи этот ID циклом среди всех элементов MainMenu.

Girder
Спасибо за сэмпл! В нём есть то, что нужно.