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

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);