隐藏主菜单在delphi程序中,使用Alt键自动显示

概述首先，让我说我在Windows Vista和Windows 7中废除此功能。第二，我想这样做。 Here是一个问题，如何做我想在这里，在WPF。 我想做同样的事情，但在Delphi，使用VCL股票组件，TMainMenu或Action Manager菜单，或一些可用的第三方组件，甚至Toolbar2000或一些其他库。 Windows Vista / Windows 7 explorer主菜单的功 首先，让我说我在windows Vista和windows 7中废除此功能。第二，我想这样做。 Here是一个问题，如何做我想在这里，在WPF。

我想做同样的事情，但在Delphi，使用VCL股票组件，TMainMenu或Action Manager菜单，或一些可用的第三方组件，甚至Toolbar2000或一些其他库。

windows Vista / windows 7 explorer主菜单的功能：

>它在应用程序启动时不可见
>按下并释放Alt使其可见
>再次按下和释放Alt使它再次不可见
>可重复。
>热键在菜单项上工作，即使菜单不可见*

(* windows资源管理器热键示例：Microsoft windows资源管理器中的Ctrl A选择所有即使菜单不可见，Alt T =启动工具d出菜单，即使整个菜单被隐藏)。

更新：演示使用接受的答案可以下载here.(HIDdenMenu.zip)

解决方法 像往常一样使用带有TActionList的TMainMenu。

然后做

procedure TForm1.FormShow(Sender: TObject);begin  Self.Menu := nil;end;

(或者在设计时删除菜单关联)和

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);begin  if (Key = VK_MENU) or (Key = VK_F10) then    Menu := MainMenu1;end;

和

procedure TForm1.WndProc(var Message: TMessage);begin  inherited;  case Message.Msg of    WM_EXITMENulOOP:      SetMenu(Handle,0);  end;end;

不要忘记将窗体的KeyPrevIEw设置为true。

(请注意，由于快捷方式由TActionList处理，即使菜单已过去，它们也会工作。)

总结

以上是内存溢出为你收集整理的隐藏主菜单在delphi程序中,使用Alt键自动显示全部内容，希望文章能够帮你解决隐藏主菜单在delphi程序中,使用Alt键自动显示所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。