Проблема с изменением высоты формы

[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: Извиняюсь, если описал проблему не совсем понятно.

[Stilet]

procedure TForm2.FormResize(Sender: TObject);
begin
 if (Panel1.Height<>Height) and (Height>Panel1.Constraints.MinHeight) then
  Panel1.Height:=Height;
end;

Проверял - должно помочь.

[andrey_60]

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

procedure TForm2.FormResize(Sender: TObject);
begin
 if (Panel1.Height<>Height) and (Height>Panel1.Constraints.MinHeight) then
  Panel1.Height:=Height;
end;

Проверял - должно помочь.

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

[Stilet]

Значит где-то у тебя в проекте еще прописаны ограничивающие свойства.
У меня это работает.

[andrey_60]

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

Значит где-то у тебя в проекте еще прописаны ограничивающие свойства.
У меня это работает.

см. выше, pnlPanel.Constraints.MinHeight = 200.

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

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;

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

[Stilet]

см. выше, pnlPanel.Constraints.MinHeight = 200.

Читай внимательно. Я не говорил о ограничении в размере панели конкретно, а о ограничениях, описанных в твоем коде, которые косвенно влияют на результат.
Короче я имел ввиду что проблема не только в том куске что ты описал.

[Аватар]

ScrollBox1.Align:=alClient;
Panel1.Align:=alTop;
Panel1.Height:=ScrollBox1.ClientHeight;
//Constraints.MinHeight не надо

procedure TForm1.FormResize(Sender: TObject);
begin
  if ScrollBox1.ClientHeight>200 then Panel1.Height:=ScrollBox1.ClientHeight
                                 else Panel1.Height:=200;
end;

[andrey_60]

Сообщение от Аватар

ScrollBox1.Align:=alClient;
Panel1.Align:=alTop;
Panel1.Height:=ScrollBox1.ClientHeight;
//Constraints.MinHeight не надо

procedure TForm1.FormResize(Sender: TObject);
begin
  if ScrollBox1.ClientHeight>200 then Panel1.Height:=ScrollBox1.ClientHeight
                                 else Panel1.Height:=200;
end;

Спасибо, помогло