各位大虾.100分求助,关于动态实现MAINMENU的问题!急急急急急!!!!

Question

var
  MenuCaption : string;
begin
  if sender is TMenuItem then begin
     MenuCaption := TMenuItem(Sender).caption;
     //在这里MenuCaption 应该是你要的值，你根据这个值再到库里查出FORM就可以处理了。
  end;
end;

Answer 1

动态建菜单应该没有问题呀，但是由于菜单建立之前没有NAME， 所以你要先定义一个PROC 或 FUNC （自定义的），然后再作说明：XXXXX.ONCLICK:=SelfProc/SelfFunc
不过这样可能会要你写很多可能用不到的Proc /Func 你看可不可以写到一起。