动态创建了子菜单，但如何让它触发OnClick?

Question

用API吧；）'*************************含有该菜单的窗体******************************
Private Sub Form_Initialize()
On Error Resume Next
    prevWndProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
    SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf WndProc
End Sub
'********************菜单事件模块(mnuWndproc.bas)****************************
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongFunction WndProc(ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error resume next
If FrmMain.hWnd <> hWnd Or msg <> 273 Then WndProc = CallWindowProc(prevWndProc, hWnd, msg, wParam, lParam): Exit FunctionSelect Case wParam
       case xxxx  
            '在这里做你想做的事
       case else
            debug.print wparam,lparam
End Select
WndProc = CallWindowProc(prevWndProc, hWnd, msg, wParam, lParam)
End Function

Answer 1

重载windows的WM_COMMAND消息,按照定义菜单的ID写程序

Answer 2

在DELPHI中用不着象楼上说的那样用VB或VC那样方式处理的。

Answer 3

给菜单项的OnClick属性赋值就可以了。

Answer 4

声明处理方法
private
  procedure DoOpenFile( Sender: TObject );创建完菜单项后：
MenuItem1.OnClick := DoOpenFile;

Answer 5

youItem.OnClick:=MyFunction就行了。
MyFunction函数的声明与OnClick要一样。