TScrollBox не будет работать, если для Anchors установлено значение []

Question

У меня есть большая панель с элементами управления, которые я хочу сосредоточить в середине окна прокрутки. При высоком разрешении панель полностью видима. Но если пользователь имеет очень маленькое разрешение (1024x768), он, вероятно, изменит размер моего приложения, и панель не будет полностью видна &. Здесь мне понадобятся полосы прокрутки. Программа проста:

UNIT Unit1; 

INTERFACE 
USES 
... 

type 
    TForm1 = class(TForm) 
    ScrollBox1: TScrollBox; 
    Button1: TButton; 
    Panel1: TPanel; 
    procedure Button2Click(Sender: TObject); 
    end; 

VAR 
    Form1: TForm1; 

IMPLEMENTATION {$R *.dfm} 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
Panel1.Left:= 9999; // Try move the panel 'out of view' 
end; 

end. 

Оба Button1 и Panel1 являются родительскими в ScrollBox1.

Когда я двигаю панель из экрана (Panel1.Left: = 9999) и Panel1.Anchors устанавливается в [akLeft] полоса прокрутки появляется в ScrollBox1. Но если для параметра Panel1.Anchors установлено значение [], полосы прокрутки не будут отображаться.

Как заставить ScrollBox работать с элементом управления, установленным на []?

Answer 1

С текущей настройкой, которую вы используете, я не считаю возможным, по своему усмотрению, автоматически обрабатывать полосы прокрутки.

Вы можете увидеть причину в

unit Vcl.Forms; 
... 
procedure TControlScrollBar.CalcAutoRange; 
var 
    I: Integer; 
    NewRange, AlignMargin: Integer; 

    procedure ProcessHorz(Control: TControl); 
    begin 
    if Control.Visible then 
     case Control.Align of 
     alLeft, alNone: 
      if (Control.Align = alLeft) or (Control.Anchors * [akLeft, akRight] = [akLeft]) then 
      NewRange := Max(NewRange, Position + Control.Left + Control.Width); 
     alRight: Inc(AlignMargin, Control.Width); 
     end; 
    end; 

Существует только потенциальное обновление NewRange когда scrollbox align является alNone, alLeft или alRight. Для alNone это зависит от анкеров. Поэтому, если Anchors не установлены, обновление NewRange не будет обновлено.

Одним из решений может быть изменение align прокрутки к alLeft или alRight. Или установите хотя бы анкер akLeft на элементы управления прокруткой.

В качестве альтернативы, я вижу, что можно установить диапазон полос прокрутки ScrollBox вручную.

Тогда она могла бы работать по f.ex

ScrollBox1.HorzScrollBar.Range := Panel1.Left + Panel1.Width; 

И обобщать перейти на все содержащиеся в нем элементы управления.

Answer 2

Теперь я вижу, что вы добавили объяснение исходной проблемы, которую вы пытались решить без привязок и прокрутки. Я бы сделал это следующим образом:

Пропустить прокрутку и использовать встроенные полосы прокрутки формы, установив TForm.AutoScroll на номер True. Вы также можете установить некоторые свойства форм и VertScrollBar. Обычно я устанавливаю Smooth и Tracking.

Затем пусть панель установили его akLeft и akTop якоря, и вместо того, чтобы центрировать его на форму с помощью простого OnResize обработчик для формы

procedure TForm1.FormResize(Sender: TObject); 
begin 
    if ClientWidth > Panel1.Width then 
    Panel1.Left := (ClientWidth - Panel1.Width) div 2; 
    if ClientHeight > Panel1.Height then 
    Panel1.Top := (ClientHeight - Panel1.Height) div 2; 
end; 

С этими двумя пересадками панель сосредоточенных в виде на экранах с высоким разрешением, прокручиваемых на экранах с низким разрешением.