изменение размера формы (bsNone)

[Sowa]

Здравствуйте.
Необходимо что бы можно было изменять размер формы, потянув мышой за конкретный угол формы.
Погуглив попроовал так.

  procedure TForm1.CreateParams(var Params: TCreateParams);
  begin
    inherited;
    CreateSubClass(Params, 'SCROLLBAR');
    Params.Style := Params.Style or WS_CLIPSIBLINGS or SBS_SIZEGRIP;
  end;

Размеры меняет если потянуть за любое место клиентской части.
Как привязать это к конкретному углу?

[artemavd]

А что, если поставить у формы свойство BorderStyle = bsSizeable, то такой вариант не канает?

[Sowa]

Не, так не интересно)

[Kotofff]

Что именно не интересно ?
Ты хочешь чтобы у формы не было заголовка но она оставалась с бордюром для изменения размеров ?

[Alex Cones]

http://programmersforum.ru/showpost....03&postcount=3
Только процедуру ставите для TForm

[Sowa]

Спасибо,разобрался.

[mihali4]

Есть еще способ - просто скрыть заголовок, не применяя bsNone:

procedure CreateParams(var Params: TCreateParams); override;
...
procedure TForm1.Createparams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
    Style := (Style or WS_POPUP) and (not WS_DLGFRAME);
end;

З.Ы. Установите BorderStyle в bsSizeable.

[Altera]

Попробуйте так:

param.style := WS_POPUPWINDOW or WS_SIZEBOX and (not WS_CAPTION);

а можно просто вот так

param.style := WS_SIZEBOX or WS_POPUP