覆盖 TForm.CreateParams(var Params: TCreateParams)方法
在其中写入
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
begin
Style := Style and not ( WS_CAPTION );
end;
TForm.CreateParams(var Params: TCreateParams);override;
在其中写入
先设Form为无标题窗口
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
begin
Style := Style or WS_THICKFRAME
end;
end;
其它类型也成