Позиция X (ScrollBox)

@Dinkin · Регистрация: 31.05.2013

Студворк — интернет-сервис помощи студентам

Доброго, добавляю панельки в ScrollBox так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 for(int i=0;i<10;++i)
  {
   TPanel * pan = new TPanel(ScrollBox1);
   pan->Parent  = ScrollBox1;
   pan->Width   = ScrollBox1->Width -20;
 
   if(i<1)
    pan->Top = 2;
     else
        pan->Top = (ScrollBox1->Tag* (pan->Height+2)+2);
    ScrollBox1->Tag++;
  }
}
//---------------------------------------------------------------------------

Но позиция Y сбивается если изменить позицию Y и скролбокса...как правильно в таких случаях быть?

@gunslinger · 16.05.2017, 22:22

Так пойдет?

C++
1
2
3
4
5
6
7
8
9
 for(int i=0;i<10;++i)
  {
   TPanel * pan = new TPanel(ScrollBox1);
   pan->Parent  = ScrollBox1;
   pan->Width   = ScrollBox1->Width -20;
 
   pan->Top = (ScrollBox1->Tag* (pan->Height+2)+2);
   ScrollBox1->Tag++;
  }

@Dinkin · 16.05.2017, 23:02 **[ТС]**

gunslinger, Не,не пойдет....вот три скрина ниже:
1) Уменьшаем поле, и добавляем первых 10 панелек
2) Опускаем ползунок на самый низ
3) Добавляем еще 10 панелек
4) Раздвигаем форму и видим разрыв

@Dinkin · 17.05.2017, 12:04 **[ТС]**

Нашел только одно более менее приемлемое решение, это делать "подкладку" вроде панели или еще чего и на нее уже добавлять компоненты.

@volvo · 17.05.2017, 12:58

Dinkin, Внимательно прочти вот этот ответ (относительно чего выставляется свойство Top для дочерних компонентов в ScrollBox-е).

И попробуй вот так:

C++
1
2
3
4
5
6
7
8
9
    for (int i = 0; i < 10; ++i)
    {
        TPanel * pan = new TPanel(ScrollBox1);
        pan->Parent = ScrollBox1;
        pan->Width = ScrollBox1->Width - 20;
 
        pan->Top = (ScrollBox1->Tag * (pan->Height + 2) + 2) - ScrollBox1->VertScrollBar->Position; // Чудо !!!
        ScrollBox1->Tag++;
    }

@Dinkin · 17.05.2017, 13:56 **[ТС]**

Крутатень =)

Не по теме:

PS. А вдруг volvo лопнит от такого количество репутации и отзывов =-O

@volvo · 17.05.2017, 14:14

Не по теме:

Dinkin, мне больше на твои вопросы не отвечать, или вообще в Билдер не заходить? :)

@Dinkin · 17.05.2017, 14:20 **[ТС]**

Не по теме:

Есть луче вариант!!!! Больше заходить и как можно больше отвечать!!! Докажем , что ни кто не лопнит! :D

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@Dinkin 783 / 556 / 136 Регистрация: 31.05.2013 Сообщений: 3,154 Записей в блоге: 3
	16.05.2017, 23:02 [ТС]
	gunslinger, Не,не пойдет....вот три скрина ниже: 1) Уменьшаем поле, и добавляем первых 10 панелек 2) Опускаем ползунок на самый низ 3) Добавляем еще 10 панелек 4) Раздвигаем форму и видим разрыв Миниатюры 0

@Dinkin 783 / 556 / 136 Регистрация: 31.05.2013 Сообщений: 3,154 Записей в блоге: 3
	17.05.2017, 12:04 [ТС]
	Нашел только одно более менее приемлемое решение, это делать "подкладку" вроде панели или еще чего и на нее уже добавлять компоненты. 0

@Dinkin 783 / 556 / 136 Регистрация: 31.05.2013 Сообщений: 3,154 Записей в блоге: 3
	17.05.2017, 13:56 [ТС]
	Крутатень =) Не по теме: PS. А вдруг volvo лопнит от такого количество репутации и отзывов =-O 0

@volvo
	17.05.2017, 14:14
	Не по теме: Dinkin, мне больше на твои вопросы не отвечать, или вообще в Билдер не заходить? :) 0

@Dinkin
	17.05.2017, 14:20 [ТС]
	Не по теме: Есть луче вариант!!!! Больше заходить и как можно больше отвечать!!! Докажем , что ни кто не лопнит! :D 0

Позиция X (ScrollBox)

Решение