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

标签：弹出菜单   roc   整理   base   delphi   com   arch   logs   init   

 最近在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中无边框窗体应用程序使任务栏右键菜单有效的方法

标签：弹出菜单   roc   整理   base   delphi   com   arch   logs   init   

原文地址：http://www.cnblogs.com/findumars/p/6358470.html