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 ;
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 ;