Поведение TScrollBox при добавлении элементов в Delphi 10.1 и Firemonkey

Delphi , Компоненты и Классы , TScrollBox

В статье рассматривается поведение компонента TScrollBox при добавлении элементов в runtime в Delphi 10.1 и Firemonkey. При добавлении новых элементов в TScrollBox, они могут не отображаться в порядке создания, что может привести к путанице в отображении элементов на форме.

При добавлении новых элементов в TScrollBox, они могут не отображаться в порядке создания, что может привести к путанице в отображении элементов на форме. Например, при добавлении новых Labels в TScrollBox, они могут отображаться не в порядке создания, а в зависимости от уже существующих элементов и их расположения.

Причиной этого поведения является то, что TScrollBox пытается разместить новые элементы так, чтобы они не перекрывали уже существующие элементы. При добавлении новых элементов в TScrollBox, они получают координаты (0, 0) по умолчанию, и TScrollBox пытается разместить их в свободном месте, которое может находиться не в конце списка элементов, а где-то посередине.

Чтобы решить эту проблему, можно использовать два подхода. Первый подход заключается в том, чтобы перед добавлением нового элемента в TScrollBox, задать ему координаты, которые находятся за пределами области видимости TScrollBox. Например, можно задать значение координаты Y равным 1E10, что гарантирует, что новый элемент будет размещен в конце списка элементов. Пример кода на Object Pascal (Delphi) показан ниже:

procedure TForm1.Button1Click(Sender: TObject);
var
  lbFileDate: TLabel;
begin
  ScrollBox2.BeginUpdate;
  for var I : integer := 1 to 10 do
  begin
    lbFileDate := TLabel.Create(ScrollBox2);
    lbFileDate.Parent := ScrollBox2;
    lbFileDate.Position.Y := 1E10;
    lbFileDate.Align := TAlignLayout.Top;
    lbFileDate.Text := DateTimeToStr(Now) + ' ' + IntToStr(I);
  end;
  ScrollBox2.EndUpdate;
end;

Второй подход заключается в том, чтобы использовать TAlignLayout.Align с значением TAlignLayout.Bottom перед добавлением нового элемента в TScrollBox, а затем установить значение TAlignLayout.Top. Это гарантирует, что новый элемент будет размещен в конце списка элементов. Пример кода на Object Pascal (Delphi) показан ниже:

procedure TForm1.Button2Click(Sender: TObject);
var
  lbFileDate: TLabel;
begin
  ScrollBox2.BeginUpdate;
  for var I : integer := 1 to 10 do
  begin
    lbFileDate := TLabel.Create(ScrollBox2);
    lbFileDate.Parent := ScrollBox2;
    lbFileDate.Align := TAlignLayout.Bottom;
    lbFileDate.Align := TAlignLayout.Top;
    lbFileDate.Text := DateTimeToStr(Now) + ' ' + IntToStr(I);
  end;
  ScrollBox2.EndUpdate;
end;

Оба подхода гарантируют, что новые элементы будут размещены в конце списка элементов в TScrollBox, что обеспечивает правильный порядок отображения элементов на форме.

Создано по материалам из источника по ссылке.

В статье рассматривается поведение компонента TScrollBox при добавлении элементов в runtime в Delphi 10.1 и Firemonkey, а также способы решения проблемы некорректного отображения новых элементов в порядке создания.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TScrollBox ::