Создание дочерней формы в границах Panel родительской. Делфи

[JUDAS]

Основная проблема - рукожопая прокладка между креслом и монитором.

спасибо за грубую интерпретацию моей подписи (синей) поржал

Аватар, никто фреймам в зал..у не прыгает, юзаем но с умом.
Речь идёт о том, что не каждая компонента корректно inheritid себя на фрейме. Например линейка последних ODAC плохо обновляется, в частности статические Filed-ы и обработчики описанные выше.
Если с форм завалить старый фрейм и по новому создать новый - всё корректно.

[Artsiom]

Сообщение от ResourceSpace

А я вот не понимаю - и зачем вам некие массивы окон?

Procedure EnableDoubleBuffered(C: TWinControl);
...

Потому как я не знаю сколько у меня будет окон, именно для этого и нужен массив.
Ваш код на стопицотмиллионов строчек...


Ну, а панелька нужна как нейкая рабочая область, где пользователь будет играться с созданными окнами.

[min@y™]

Потому как я не знаю сколько у меня будет окон, именно для этого и нужен массив.

только для этого?

[min@y™]

Ну, а панелька нужна как нейкая рабочая область, где пользователь будет играться с созданными окнами

тогда уж TScrollBox.

[ResourceSpace]

У них 3 простые функции, а у тебя портянка кода которая предназначена явно не для начинающего.

Ваш код на стопицотмиллионов строчек...

Да вы чего?) Вчитайтесь сперва что там показано. Там всё элементарно.
У меня тот же код, только чуть дополненный:

• Функция EnableDoubleBuffered() включает DoubleBuffered у указанного оконного контрола (например у TForm) и у всех его дочерних контролов.
• В класс TForm2 добавлена обработка события OnMoving, которая не даёт дочерним формам уезжать за пределы родителя.
• По нажатию Button1Click случайным образом выбирается в каком окне создавать дочернее (Panel1 или Panel2 или Panel3 или Form1) и создаёт в нём дочернюю TForm2 (теми же 3 простыми функциями). Ну ещё раскрашивает и располагает в случайном месте.

Потому как я не знаю сколько у меня будет окон, именно для этого и нужен массив.

В VCL уже есть массивы дочерних окон, что я и показал:

• По нажатию Button2Click пробегаемся по всем TForm2 которые лежат на Panel1.
• По нажатию Button3Click пробегаемся по всем TForm2 которые были созданы по Button1Click где бы они не лежали.

Никакие дополнительные массивы вам и не требуются.

[min@y™]

Функция EnableDoubleBuffered() включает DoubleBuffered у указанного оконного контрола (например у TForm) и у всех его дочерних контролов.

Я сам так раньше говнокодил.

procedure SetDoubleBuffered(Parent: TWinControl; const DoubleBuffered: Boolean);
var
  Control: TControl;
  Index: Integer;
begin
  if not Assigned(Parent)
    then Exit;
  Parent.DoubleBuffered:= DoubleBuffered;
  for Index:= 0 to Parent.ControlCount - 1 do
   begin
     Control:= Parent.Controls[Index];
     if Control is TWinControl
       then SetDoubleBuffered(TWinControl(Control), DoubleBuffered); // Рекурсия !!!
   end;
end;

Но...
Это вам не это!

[ResourceSpace]

Нафига там рекурсия, надо просто Components[], а не Controls[].
Не знаю как в вашей Делфи, а в 7-й включение DoubleBuffered у формы не включает его дочерним окнам. А дизайнтайм вообще нету такого свойства:

[min@y™]

Нафига там рекурсия, надо просто Components[], а не Controls[].

А у меня там ваще TWinControl - не все потомки TControl имеют свойство DoubleBuffered.
А рекурсия - чтобы обойти всё дерево дочерних оконных элементов, а не только верхний уровень.

[JUDAS]

ResourceSpace ты это искал?

[min@y™]

ResourceSpace ты это искал?

тут public, а не publidhed.