unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  protected
    procedure createparams(var params : TCreateParams);override;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.createparams(var params: TCreateParams);
begin
  inherited;
  {实现窗体最大化}
  params.Style:= params.Style or WS_MAXIMIZE;
end;
end.
{其他一些相通的功能}
procedure TForm1.createparams(var params: TCreateParams);
begin
  inherited;
  {取消标题栏}
  params.Style:= params.Style and (not WS_CAPTION);
end;
 
procedure TForm1.createparams(var params: TCreateParams);
begin
  inherited;
  {取消窗体放大缩小的拖曳功能}
  params.Style:= params.Style and (not WS_THICKFRAME);
end;
 
procedure TForm1.createparams(var params: TCreateParams);
begin
  inherited;
  {实现阴影效果}
  params.ExStyle:= params.ExStyle or (WS_EX_CLIENTEDGE);
end;