分层 Windows 的系统菜单？

Question

我们在 Delphi 2009 中的分层窗口和系统菜单方面遇到了问题。也就是说，我们的分层窗口（没有边框）没有系统菜单。当我说系统菜单时，我指的是单击应用程序的图标、右键单击其标题栏或（在 Windows 7 中，加上 Shift 键）右键单击任务栏中的应用程序时获得的菜单:

当您尝试访问系统菜单时，例如通过右键单击任务栏图标，此类分层窗口，而是升起分层窗口。这是为什么呢？是否需要设置某种样式，或者处理某种事件？

这是一个匆忙制作的演示，显示了该问题。不过，它确实可以用带有 bsNone borderstyle 的任何形式来重现。

http://ompldr.org/vODd5dw

Answer 1

您需要重新添加使用 bsNone 边框样式删除的 WS_SYSMENU 样式。

type
  TLayeredForm = class(TForm)
    procedure FormCreate(Sender: TObject);
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

...

procedure TLayeredForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style or WS_SYSMENU;
end;