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