delphi bsNone 后显示边框

procedure CreateParams(var Params: TCreateParams); override;

procedure TForm10.CreateParams(var Params: TCreateParams);
begin
  inherited;
  with Params do
  begin
    style := style or WS_THICKFRAME;
  end;
end;

 

//无边框,但可以调整大小

//no border BUT resizable

 procedure TForm1.CreateParams(var Params: TCreateParams) ;

 begin

   BorderStyle := bsNone;

 

   inherited;

 

   Params.ExStyle := Params.ExStyle or WS_EX_STATICEDGE;

   Params.Style := Params.Style or WS_SIZEBOX;

 end;