摘要： 最近在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, Wi. 阅读全文