最近在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;