Изменение размера окна

[Anfall]

Вот такое окно. Просьба помочь. Надо чтобы можно было менять только ширину (по вертикали) окна. Но только чтобы не появлялись прокрутки по краям, а менялась ширина листбокса. Думаю ясно изложил) Заранее благодарен)

[pu4koff]

Обрабатывайте у формы OnCanResize, а у listBox'a "включите" нужные параметры свойства Anchors

[mihali4]

И что же тут заумного?

procedure TForm1.FormResize(Sender: TObject);
begin
ListBox1.Width:=ClientWidth-10;
Height:=800;
end;

[schnaps]

возможно еще использование панелей, а на них уже размещать компоненты и путем установки свойств Align в панелях и собственно контролах, тогда можно иобойтись без лишнего кода

[0nni]

Правильнее так

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure wmwindowposchanging(var msg : TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;
  end;

...

procedure TForm1.wmwindowposchanging(var msg: TWMWindowPosChanging);
begin
  msg.WindowPos.cy := Height;
end;

end.

или

  Form1.Constraints.MaxHeight := 400;
  Form1.Constraints.MinHeight := 400;

И как сказал pu4koff лучше использовать Anchors

[Anfall]

Спасибо всем! Разобрался. Сделал так:
У формы в свойтсвах (TSizeConstraints) поставил MaxWidth и minWidth =362.

Далее

procedure TForm1.FormResize(Sender: TObject);
begin
ListBox1.Height:=Form1.Height-216;
ListBox1.Top:=104;
Button1.Top:=ListBox1.Top+ListBox1.Height+8;
sButton2.Top:=ListBox1.Top+ListBox1.Height+8;