请问如何在active form 上加入程序菜单？

Question

哪就对了，active form不能使用和显示MainMenu,你可以使用toolbar实现MainMenu那样的效果

Answer 1

其实有办法的，可以模仿menu;
用toolbar或panel工具栏制作，每个按钮点击出现不同菜单(popupmenu1);
鼠标左键弹出菜单代码
procedure TForm1.toolbutton1Mousedown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  pt:tpoint;
  begin
  pt.x:=bitbtn1.Left;
  pt.y:=bitbtn1.top+bitbtn1.Height;
  pt:=clienttoscreen(pt);
  if button=mbleft then
  popupmenu1.popup(pt.x,pt.y);
end;

Answer 2

写错了
bitbtn1改为toolbutton1;
代码写在toolbutton1mouseup事件中。