Как растягивать форму

[zmey31313]

Как можно растягивать форму мышью с заданным параметром

BorderStyle := bsNone

?

[Kotofff]

Ставишь BorderStyle := bsNone
И пишешь такой код:

  public
    procedure CreateParams(var Params: TCreateParams); override;
....
....
....
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := (Params.Style or WS_THICKFRAME);
end;