[aleksnine]

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

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

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

[Winny]

Код:

1 2 3 4 5 6 7

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

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;