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

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;