Delphi重载Createparams，窗体的一些样式

在Delphi中，重载CreateParams可以用来修改窗体的一些样式。以下是几个常见的示例：

1. 禁止窗体最大化按钮

procedure TMyForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style and not WS_MAXIMIZEBOX;
end;

2. 设置窗体为无边框窗口

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

3. 设置窗体为带有阴影效果的窗口

procedure TMyForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;

这些示例只是其中的一部分，通过重载CreateParams，可以实现很多不同的窗体样式。