Один фрейм для разных структур

← →
learner © (2006-07-01 07:56) [0]

Здравствуйте !
Проблема такая:
Есть две "модели" 1-ая и 2-ая. Одна описана в юнит1, другая в юнит2.
Для каждой надо написать Frame.
Кода в фрейме много и он он практически совпадает для этих моделей
Отличия типа:
Model: TMyModel1; и Model: TMyModel2;
Const My = 1; и Const My = 2;
Как бы мне обойтись одним фреймом ?
Что нибудь типа:
{$IFDEF что-то} const My = 1; {$ELSE} const My = 2; {$ENDIF}
или как нибудь по другому
P.S. одна программа может использовать оба вида фраймов.

← →
Loginov Dmitry © (2006-07-01 08:25) [1]

> Что нибудь типа:
> {$IFDEF что-то} const My = 1; {$ELSE} const My = 2; {$ENDIF}

Лучше через Tag

← →
learner © (2006-07-01 09:38) [2]

>Loginov Dmitry
Все бы было хорошо, но в Frame.Create Tag еще не принимает новое
значение. Оно устанавливается позже. В CMShowingChanged оно уже
нужное. А мне надо определять еще в Frame.Create :((

← →
Loginov Dmitry © (2006-07-01 09:51) [3]

> А мне надо определять еще в Frame.Create

Если фреймы создаются в ран-тайме, то сделай override-версию конструктора (в ран-тайме вообще можно выбрать любой путь для достижения цели).

Если фреймы кладутся на форму визуально, то добавь в секцию published фрейма какое либо свойство, например:

property FrameType: TFrameType; {Ctrl + Shift + C}

и создай процедуру регистрации

procedure Register;
begin
RegisterComponents("MyTab", [TMyFrame]);
end;

после чего откомпилируй и установи фрейм как компонент. После этого сможещь менять FrameType в инспекторе объектов.

Но в ран-тайме, конечно, все проще.

>Loginov Dmitry
>Если фреймы кладутся на форму визуально, то добавь в секцию published
>фрейма какое либо свойство
Tag и так published
Фреймы кладутся на форму визуально, устанавливаю Tag = 1
В Frame.Create override прверяю: Tag еще равен нулю

> В Frame.Create override прверяю: Tag еще равен нулю

Он и будет равным нулю. Инициализация published-свойств автоматически выполняется ПОСЛЕ работы конструктора. Выполняйте необходимые действия в отдельной процедуре, вызываемой, например, из обработчика OnCreate формы.

Один фрейм для разных структур Найти похожие ветки