比如说 我用代码新生成了 一组command
如何为这些command 添加click 代码呢
------解决方案--------------------------------------------------------
动态加载一个控件，如按钮，并给按钮的Click事件绑定事件：
1、建一个过程文件（如MyProc.PRG）,内容如下
Define Class myhandler As Session
Procedure CmdClick
Messagebox('ok',64,'') &&此处改为你的相应代码
Return
Endproc
Enddefine
2、表单的INIT事件：
Set Procedure To MyProc.prg
3、表单上动态加载控件按钮的CLICK事件：
Thisform.AddObject('Cmd_Test','CommandButton')
Thisform.Cmd_Test.Caption='Cmd_Test'
Thisform.Cmd_Test.Top=100
Thisform.Cmd_Test.Left=100
Thisform.Cmd_Test.Height=25
Public oHandler
oHandler=Newobject("myhandler")
Bindevent(Thisform.Cmd_Test,"Click",oHandler,"CmdClick")
Thisform.Cmd_Test.Visible=.T.