Delphi中无边框窗体应用程序使任务栏右键菜单有效的方法

Posted 朝闻道

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Delphi中无边框窗体应用程序使任务栏右键菜单有效的方法相关的知识,希望对你有一定的参考价值。

 最近在Delphi开发中用到了无边框窗体显示时,无法在任务栏使用右键弹出菜单的情况,经过整理,通过以下方法可以使右键菜单出现:

procedure Tfrm_Base.InitSysMenu;
var
  WindowStyle: Integer;
begin
  WindowStyle := GetWindowLong(Handle, -16);
  WindowStyle := WindowStyle or WS_SYSMENU or WS_MINIMIZEBOX;
  WindowStyle:=WindowStyle xor WS_CAPTION;
  SetWindowLong(Handle, -16, WindowStyle);
end;

 

http://www.cnblogs.com/gxch/archive/2011/04/22/2024846.html

以上是关于Delphi中无边框窗体应用程序使任务栏右键菜单有效的方法的主要内容,如果未能解决你的问题,请参考以下文章

win10状态栏右键菜单变成黑色怎么破

Delphi 最小化程序到任务栏托盘 增加右键PopMenu

delphi程序如何从任务栏及时还原、显示窗体?

win11任务栏右键没有任务管理器的解决办法 - 添加win11任务栏右键功能

delphi 托盘图标 主窗体就隐藏,跳出一个窗体就缩小的

如何隐藏开始菜单栏