高手请看：如何控制Form上的MainMenu弹出菜单

[powerlee]

要按键盘上的F10,或ALT键，或者用鼠标，我想程序控制它弹出，高手有什么方法没有？

[powerlee]

up

[esu]

先去掉Form的menu里的MainMenu1
procedure TForm1.FormClick(Sender: TObject);
begin
Form1.Menu:=MainMenu1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Menu:=nil;//放到你想关闭菜单的地方
end;

[666333]

procedure TForm1.FormKeyDown(Sender: TObject);
begin
if(Shift=[])and(Key=VK_F10) then Form1.Menu:=MainMenu1;
end;

[windwather]

创建菜单时不就有快捷键吗?比方说:alt+V等.你改一下不就成了.

[powerlee]

我希望的是，Form Active 菜单就激活，并可通过程序控制是否弹出来，不需要键盘或鼠标控制

[baguli]

试试这个，肯定行的：
SendMessage(Handle, WM_SYSCOMMAND, SC_KEYMENU, 0);