通过自定义消息调用主窗体的菜单项

1.首先放置TApplicationEvents控件。

2.procedure TF_Main.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);

begin

  case  Msg.Message of

  WM_USER + 128:

  Begin

     case Msg.wParam of

       1: F_Main. Button129Click(F_Main.Button129);

       2: XXXXX;

     end;

  end;

 End;

 

3.发送消息调用 

PostMessage(Application.Handle, WM_USER + 128, 1, 0);