дерево.... классов...

[_bAd_]

Требуются следующие классы:

    P_GUI_DefWindow       = ^T_GUI_DefWindow;
    T_GUI_DefWindow       = class
                            Width, Height, Top, Left   : Integer;
                            Parent                     : P_GUI_Window;
                            Childs                     : array of P_GUI_Window;

                            constructor Create( _Left, _Top, _Width, _Height : Single);
                          end;

    T_GUI_Button          = class(T_GUI_DefWindow)
                            Draw;
                          end;

    T_GUI_Panel           = class(T_GUI_DefWindow)
                            Draw;
                          end;

    T_GUI_Edit            = class(T_GUI_DefWindow)
                            Draw;
                          end;

    P_GUI                 = ^T_GUI;
    T_GUI                 = class
                            FD3DDevice                         : IDirect3DDevice9;
                            MeshShader                         : TMeshShader;
                            _P_GUI                             : P_GUI;

                            Windows                            : array of P_GUI_DefWindow;

                            constructor Create;
                            procedure Init(_GUI : P_GUI; _Handle : THandle; _FD3DDevice : IDirect3DDevice9; _MeshShader : TMeshShader);
                          end;

Это фрагмент общего каркаса моего ГУИ. К виндовским эти окна отношения не имеют, как вы можете понять.
И собственно вопросы:
1) требуется переменные классов T_GUI_Panel, T_GUI_Button и многих многих других выстроить разношерстным деревом. Тоесть на переменной класса Панель могут лежать разные другие классы (входить в перечень чайлдов). Применённый у меня вариант описать массивы детей как указатели на базовый класс P_GUI_Window не работоспособен. Как быть?

2) как сделать, чтоб при создании у этих окон в памяти хранились только переменные, а методы не тратили память под многочисленные свои копии? а-то их там тысячи будет ..

3) Переменная GUI описана в другом модуле и создана:
GUI:=T_GUI.Create;
GUI.Init(@GUI, .......);

А в самом методе T_GUI. Init(...) есть такое безобразие:
_P_GUI:=_GUI;

Дело в том, что окна должны массивом или еще как-то храниться в самом GUI. В процессе отрисовки Draw (индивидуальна у каждого класса окон) окнам требуются много-много всяких величин, хранимых в переменных в GUI. Таким образом мне надо при создании каждого окна передавать ему указатель на этот GUI, но где мне его взять? Единственное, что работает - эта нехорошая конструкция: GUI.Init(@GUI, .......);, в которой я вызывая метод переменной передаю в него адрес этой переменной... Но очень уж как-то криво... Не подскажете?

Четвёртый вопрос задам попозже заранее спасибо

"Апить" - то есть флудить, не нужно.
Или отзовутся, или нет.
Торопитесь? Давайте перенесу во фриланс...