[lxa85]

Dreamer_UFA, а может и не надо создавать кнопки и поля динамически?
Создать всю форму, а потом, в нужной последовательности делать компонентам
visible:=true

[Dreamer_UFA]

Спасибо за совет. Это то что я сделал в первую очередь. Что по мне - не очень красиво.
Хотелось бы эффекта. Нажал - форма вниз растянулась - вноси новую информацию, еще раз - еще раз. Как то так.
Ну если в ближ время не найду решения - сделаю с видимым/невидимым

[DedAlex]

Можно попробовать так. Реализация не особа красивая. Надо что-то думать с формой, попробуйте нажать кнопки 1,2,3,1. Надо их блокировать, что не очень подходит, может надо что-то исправить. Есть вариант проверять размеры формы и если она уже увеличена ничего не делать. Или искать еще какой-то вариант.

[Iska]

Dreamer_UFA, Вы не думали использовать концепцию «Мастеров», которые применяет Microsoft, начиная с Windows 95?

[lxa85]

Dreamer_UFA, здесь я думаю остро встанет вопрос быстродействия интерфейса.
Т.к. тетеньки (или для кого пишется программа) будут вносить числовые данные со скоростью пулемета (рука то набита), и ждать пока форма красиво растянется вниз + начнет перекрывать нужные поля или уходить вниз, а соотв. ее надо вытаскивать вверх, приведут в негодование.
Концепция visible false/true является отработанной на примере самописной бухгалтерской программы (не моей). Бухгалтерия с ним много лет жила и на определенных участках до сих пор живет.
(собственно развёрнутое пояснение ко вчерашней мысли)

[Dreamer_UFA]

Спасибо. Попробую. Не хотелось создавать кучу форм... (ответ Iska)
Lxa85 - скорее всего на этом остановлюсь. Сейчас потестю. Ранее не было необходимости как то и не думал. А тут простенькое приложение...

[Iska]

Не хотелось создавать кучу форм... (ответ Iska) »

И не надо. Достаточно одной-единственной формы.

[Dreamer_UFA]

Спасибо всем. Все удачно.
Хочу задать еще вопрос в этой теме, дабы не плодить еще.

Есть у меня на форме EditBox. При наведении на него появляется ProgressBar. Как соотнести количество букв в боксе с % в прогресс баре ?
Иначе говоря у меня в боксе пользователь пишет тему сообщения. Хочу проверить на длинну и при определенных условиях разблокировать кнопку Далее.
Прогресс бар для красоты. дошел до 100% - идем дальше.

Наджеюсь понятно описал )

Файл 108340

[lxa85]

Код:

if length(Edit1.Text) / Minimum_Text >= 1 then begin end;

Что то в этом духе.
Minimum_Text естественно задан заранее.