1 Topic by sibprogsistem (edited by sibprogsistem 2021-09-04 06:04:05)

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

Topic: скроллинг Form = bsNone

у формы Form2 установлен BorderStyle = bsNone;
также эта форма parent:=Form1
 
Form1 тоже BorderStyle = bsNone;
 
мне нужно включить прокрутку в Form2
AutoScroll отображает вертикальный скролл но не работает, будто бы он Enabled:=False;,  но принудительно позиции скролла менять можно

как мне включить скролл?

  • From: Белгород
  • Registered: 2018-12-03
  • Posts: 657

Re: скроллинг Form = bsNone

var Sb:TScrollBox;

begin
    Sb := TScrollBox.Create(Form1);
    Sb.Parent :=  Form1;
    Sb.Align := alClient;
    Form2.Parent := Sb;
    Form2.Show;
end.
Системы безопасности в Белгороде

vovka3003's Website

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

Re: скроллинг Form = bsNone

vovka3003 wrote:
var Sb:TScrollBox;

begin
    Sb := TScrollBox.Create(Form1);
    Sb.Parent :=  Form1;
    Sb.Align := alClient;
    Form2.Parent := Sb;
    Form2.Show;
end.

спасибо за подсказку, нашёл свою ошибку!!