Question

My question is how to catch which menu item was pressed in some form? For an example :

I have a form with a button. When I pressed the button the menu of the application will be on focus and the child form wait to choose a menu item. After I choose one the child form show a message with the name of the menu item which I pressed.

Can anyone tell me how to do this?

Thanks in advance!

Answer 1

• 1/ By default you set all the TMenuItem OnClick event handler to Nil.
• 2/ When you click the form button you assign an event to each TMenuItem, this event will be only called once, and will record the ‘trigger’.
• 3/ When the event is called you reset all the TMenuitem.OnClick to Nil
• 4/ To make this easyer, you store all your MenuItems in a TList.

example:

global variables (private declaration in TMyForm):

MyTriggerItem: TMenuItem; // used as pointer
MyMenuItemList: TList; // used to store all TMenuItem which are 'listened to'

your TButton handler:

Procedure TMyForm.ButtonClick(Sender: TObject);
Var
  i: Integer;
Begin
  For i:= 0 To Pred(MyMenuItemList.Count) Do TMenuItem(MyMenuItemList[i]).OnCLick := CommonMenuItemClick;    
End;        

your TMenuItem event handler:

Procedure TMyForm.CommonMenuItemClick(Sender: TObject);
Var
  i: Integer;
Begin
  MyTriggerItem := TMenuItem(Sender);
  For i:= 0 To Pred(MyMenuItemList.Count) Do TMenuItem(MyMenuItemList[i]).OnCLick := Nil;
End;