[andrey_60]

Доброе время суток.
Подскажите, пожалуйста.

На форме расположен ScrollBox: TScrollBox, со свойством Align = alClient, на котором расположена pnlPanel:TPanel, со свойствами:

Код:

  pnlPanel.Height = 250;
  pnlPanel.Align = alClient;
  pnlPanel.Constraints.MinHeight = 200.

Таким образом, при изменении высоты формы, панель будет занимать все свободное место на форме, НО нельзя будет установить высоту формы меньше минимальной высоты панельки (200).

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

Для решения этой задачи на событии OnResize формы выполняется следующая процедура.

Код:

procedure TForm3.FormResize(Sender: TObject);
begin
  if ScrollBox.Height < pnlPanel.Constraints.MinHeight + 10 then
    pnlPanel.Align := alTop
  else
    pnlPanel.Align := alClient;
end;

Админ: Пользуемся тегами для оформления кода!

Но почему то, после запуска приложения, когда начинаешь уменьшать высоту формы и высота формы приближается к минимально допустимой высоте панельки, дальнейшее уменьшение невозможно, хотя pnlPanel.Align устанавливается в alTop. Но если в этот момент прервать уменьшение формы (отпустить левую кнопку мыши), а потом опять начать уменьшать форму, то форма будет без проблем уменьшаться до нужных размеров.

Подскажите, пожалуйста, как сделать возможным уменьшение формы до нужных размеров без прерывания.
PS: Извиняюсь, если описал проблему не совсем понятно.

[icsander]

Точно не уверен, но вроде у TForm есть св-ва HorzScroll и VertScroll. Т.е. вам не нужен к-т ScrollBar. Кидайте на форму все что вам надо и при уменьшении формы она сама покажет скролбары (ИМХО, дельфы нет под рукой)

[andrey_60]

Спасибо за ответ, но все равно не получится установить высоту формы меньше минимальной высоты панельки

[andrey_60]

Всем спасибо, проблему решил, но сомнительным способом.
Как я уже писал выше "если в этот момент прервать уменьшение формы (отпустить левую кнопку мыши), а потом опять начать уменьшать форму, то форма будет без проблем уменьшаться до нужных размеров." Поэтому я генерирую программно отпускание и нажатие левой кнопки мыши:

Код:

procedure TForm3.FormResize(Sender: TObject);
begin
  if ScrollBox.Height < pnlAlClientOrAlTop.Constraints.MinHeight + 10 then
  begin
    if pnlAlClientOrAlTop.Align <> alTop then
    begin
      pnlAlClientOrAlTop.Align := alTop;
      mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
      mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
    end;
  end
  else
  begin
    if pnlAlClientOrAlTop.Align <> alClient then
      pnlAlClientOrAlTop.Align := alClient;
  end;
end;

Буду благодарен за другие решения, а также за комментарий этого.

[poli-smen]

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

Буду благодарен за другие решения, а также за комментарий этого.

Можно так же положить на ScrollBox ещё одну панель, которая будет лежать спрятанная за основной панелью (Send to Back) и служить своего рода ограничителем:

Код:

object Panel2: TPanel
  Align = alNone
  Left = 0
  Top = 0
  Width = 10
  Height = 200
  BevelInner = bvNone
  BevelOuter = bvNone
  Caption = ''
end

При этом убираешь обработчик "TForm3.FormResize" и обнуляешь "pnlPanel.Constraints.MinHeight"

[YVitaliy]

а так не катит? :

Код:

procedure TForm1.FormResize(Sender: TObject);
begin
  if ClientHeight<=(Panel1.Constraints.MinHeight) then begin
     panel1.Align:=alTop;
  end else begin
     panel1.Align:=alClient;
  end;
end;

И без скроллбокса.