delphi – 如何制作像Windows 7通知弹出窗口一样的窗口,(WS_THICKFRAME但不可修改)

我刚刚在Delphi 7中创建了一个模拟默认系统图标的 small app here,如音量,电池,时钟,网络.

我试图在这里遵循所有微软推荐的http://msdn.microsoft.com/en-us/library/aa511448.aspx#flyouts

为了使窗口看起来像弹出窗口,我正在使用此代码：

//declaration

TForm1 = class(TForm)

protected
  procedure CreateParams(var Params: TCreateParams); override;
end;

履行

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := WS_POPUP or WS_THICKFRAME;
  Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST;
end;

我的问题是WS_THICKFRAME允许用户调整窗口大小.我怎样才能解决这个问题？

解决方法

您可以通过处理 WM_GETMINMAXINFO来防止调整大小.

但是,这不会阻止调整大小光标的使用.为此,您可以处理WM_NCHITTEST.