• From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: AutoSize - AutoScroll

если включить у формы AutoSize то AutoScroll не работает...

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

как их заставить работать вместе?

  • Petr
  • Member
  • Offline
  • Registered: 2016-03-02
  • Posts: 82

Re: AutoSize - AutoScroll

Предполагаю что если на форме большое кол-во элементов то её сразу нужно разворачивать на максимальный размер экрана.
AutoSize не используем. AutoScroll ставим галочку. Вроде работает.
procedure Form1_OnResize (Sender: TObject);
begin
   Form1.Width := Screen.Width;
   Form1.Height := Screen.Height;
end;

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,532

Re: AutoSize - AutoScroll

Petr wrote:

Предполагаю что если на форме большое кол-во элементов то её сразу нужно разворачивать на максимальный размер экрана.
AutoSize не используем. AutoScroll ставим галочку. Вроде работает.
procedure Form1_OnResize (Sender: TObject);
begin
   Form1.Width := Screen.Width;
   Form1.Height := Screen.Height;
end;

Ваш код устанавливает размеры формы равными размеру экрана. Для получения требуемой автору поста функциональности нужно использовать свойство Constraints:


procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  Form1.Constraints.MaxHeight := Screen.Height;
  Form1.Constraints.MaxWidth := Screen.Width;
end;

То есть форма никогда не будет больше размера экрана.

Визуальное программирование: блог и телеграм-канал.

k245's Website