Сворачивание элементов на форме обычного приложения

[Funt432286]

Всем доброго времени суток!

Есть такая необходимость, сделать сворачивание и разворачивание элементов на форме обычного приложения!

Есть стартовое положение элементов на форме (рисунок 1), при нажатии на текс "Планировании" нижняя часть перемещается на верх через задание параметров (рисунок 2)
 

Код Выделить Развернуть

ЭлементыФормы.ТЧ_РоландНовый.Высота = 113;
ЭлементыФормы.ТЧ_РоландСтарый.Высота = 113;
// *********************************************
ЭлементыФормы.НадписьПланирование.Верх = 152;
ЭлементыФормы.План.Верх = 152;
ЭлементыФормы.ОбщийПлан.Верх = 152;
ЭлементыФормы.КомПанПланерка.Верх = 152;
ЭлементыФормы.ТЧ_Планерка.Верх = 185;
ЭлементыФормы.ТЧ_Планерка.Высота = 730;

// *********************************************
ЭлементыФормы.Надпись11.Верх = 152;
ЭлементыФормы.ТЧ_Резка.Верх = 185;
ЭлементыФормы.ТЧ_Резка.Высота = 730;

Затем при нажатии на текст "Новый" положение нижней части должно вернуться в исходное положение!

Я так понимаю параметрам нужно присваивать исходные параметры, но как их правильно получить и задать?

P.S. Вот такие нестандартные развлекаловки всегда!! )))

[antoneus]

Ну перед присваиванием прочитать и запомнить, не?

[Funt432286]

antoneus, я получаю значения перед присваиванием получается значение в районе 800, потом присваиваю, а это примерно середина экрана!

[Kvark5d]

Funt432286, между верхними и нижними таблицами вставь элемент формы разделитель.
и изменяй только его реквизит верх. Только прописывать надо не точные значения, а расчетные от высоты формы например.
Пример:
нижняя часть перемещается на верх:
ЭлементыФормы.Разделитель1.Верх = ЭтаФорма.Высота / 4;
положение нижней части должно вернуться в исходное положение:
ЭлементыФормы.Разделитель1.Верх = 3 * ЭтаФорма.Высота / 4;