核心提示:600) this.width = 600;'>procedure TForm1.CreateParams(var Params: TCreateParams) ;begin BorderStyle...
600) this.width = 600;">
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;