[aleksnine]

Привет.
Делаю так -

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

Всё работает , но появляется бордюр у формы.
Возможно ли сделать тоже самое , но чтобы форма выглядела как при bsnone, т.е без бордюра.

[Winny]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Height:=нужный тебе параметр;
form1.Width:=нужный тебе параметр;
end;

end.

[mav_c]

Сообщение от aleksnine

Привет.
Делаю так -

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

Всё работает , но появляется бордюр у формы.
Возможно ли сделать тоже самое , но чтобы форма выглядела как при bsnone, т.е без бордюра.

Вот тебе примерчик для одной стороны формы(правой, там доделаеш. Влом писать.

resizeRight и mouseDown - глобальные boolean

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 mouseDown := true;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  mouseDown := false;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if ((resizeRight) and (mouseDown)) then
 begin
   Width := X + 3;
   exit;
 end;

 if (X > Width - 3) then
 begin
  resizeRight := true;
  Cursor := crHSplit;
  exit;
 end else
 begin
  resizeRight := false;
  Cursor := crArrow;
 end;
end;