Автоматическая прокрутка TScrollBox при вводе данных в edit-контролы.

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

При разработке приложений с формами, содержащими множество элементов управления, часто возникает необходимость использовать компонент TScrollBox для организации прокрутки содержимого. Однако в Lazarus и Delphi существует распространенная проблема: когда пользователь переходит между полями ввода (например, TDBEdit) с помощью клавиши Tab, TScrollBox не прокручивается автоматически, чтобы показать элемент, получивший фокус.

Проблема и ее решение

Как описано в исходном сообщении, проблема проявляется следующим образом: - В TScrollBox размещены несколько TDBEdit - Часть полей находится за пределами видимой области - При переходе между полями с помощью Tab фокус переходит правильно, но визуально поле остается скрытым

Решение, предложенное пользователем korba812, заключается в использовании метода ScrollInView компонента TScrollBox в обработчике события OnEnter для каждого edit-контрола:

procedure TForm1.DBEdit1Enter(Sender: TObject);
begin
  ScrollBox1.ScrollInView(TControl(Sender));
end;

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

Альтернативные решения

1. Универсальный обработчик для всех контролов

Вместо создания отдельных обработчиков для каждого edit-контрола можно создать один универсальный обработчик:

procedure TForm1.AnyControlEnter(Sender: TObject);
begin
  if Sender is TControl then
    ScrollBox1.ScrollInView(TControl(Sender));
end;

Затем в инспекторе объектов для каждого контрола указываем этот обработчик для события OnEnter.

2. Подкласс TScrollBox

Можно создать потомок TScrollBox с автоматической обработкой фокуса:

type
  TAutoScrollBox = class(TScrollBox)
  private
    procedure HandleChildEnter(Sender: TObject);
  protected
    procedure Loaded; override;
  end;

procedure TAutoScrollBox.Loaded;
var
  i: Integer;
begin
  inherited;
  for i := 0 to ControlCount - 1 do
    if Controls[i] is TWinControl then
      TWinControl(Controls[i]).OnEnter := HandleChildEnter;
end;

procedure TAutoScrollBox.HandleChildEnter(Sender: TObject);
begin
  ScrollInView(TControl(Sender));
end;

Использование такого компонента избавит от необходимости вручную настраивать обработчики для каждого контрола.

3. Использование Application.OnIdle

Еще один подход - использовать событие Application.OnIdle для проверки текущего фокуса:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnIdle := AppIdle;
end;

procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
var
  FocusedControl: TWinControl;
begin
  FocusedControl := Screen.ActiveControl;
  if (FocusedControl <> nil) and (FocusedControl.Parent = ScrollBox1) then
    ScrollBox1.ScrollInView(FocusedControl);
end;

Дополнительные соображения

1. Производительность: Метод ScrollInView может вызывать небольшую задержку при переключении между полями. Если форма содержит очень много элементов, стоит протестировать производительность.

2. Поведение при программном изменении фокуса: Убедитесь, что автоматическая прокрутка работает и при программном изменении фокуса (например, через SetFocus).

3. Комбинация с другими событиями: В некоторых случаях может потребоваться комбинировать обработку OnEnter с OnExit или OnChange для более сложного поведения.

Заключение

Проблема автоматической прокрутки TScrollBox при вводе данных решается достаточно просто с помощью метода ScrollInView. В зависимости от сложности вашего приложения и количества контролов вы можете выбрать наиболее подходящий из предложенных вариантов реализации.

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

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

Контекст описывает решение проблемы автоматической прокрутки TScrollBox при переходе между полями ввода в Delphi и Lazarus, предлагая несколько вариантов реализации.

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

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

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