Свойство ComponentState у TForm в DreamDesigner

← →
Priest (2005-05-18 12:49) [0]

Использую DreamDesigner. Свойство ComponentState равно []. Как узнать, что форма (а не компонент) находится в режиме разработке?

← →
Юрий Зотов © (2005-05-18 13:10) [1]

Как обычно: if csDesigning in ComponentState then...
В среде Dream тоже работает.

← →
Priest (2005-05-18 13:35) [2]

Для компонента Да. А вот для формы у меня не работает. Понимаете, оно постоянно имеет значение [].

← →
Юрий Зотов © (2005-05-18 14:59) [3]

Гм... с TDCLiteDesigner у меня все было ОК и для формы тоже. Может, не тот класс дизайнера используете? Он там не один.

Еще csDesigning можно выставить принудительно при активации дизайнера (см. SetDesigning), или проверять не ComponentState, а активность дизайнера.

← →
Priest (2005-05-18 16:08) [4]

Я сделал по другому....
Вообще я проверял ComponentState в конструкторе формы. А как оказалась этого делать нельзя. У меня целый ряд переопределённых классов из Dream, но содаётся форма вот так:
TaxIDEFormObject = class(TIDEFormObject) procedure TaxIDEFormObject.CreateFromStream(FormStream: TStream); var Hooked: boolean; // I: Integer; // fm: TForm; // CurrComp, NewComp: TComponent; begin CreateDesigner(StreamContainsDataModule(FormStream), False); with FormDesigner do try SetDesign(FormInstance, true); Hooked := False; ................................
Вот как раз строка CreateDesigner(StreamContainsDataModule(FormStream), False); вызывает создание формы, поэтому вызывается конструктор (где я и проверял ComponentState).
А после конструктора выполнилась строка SetDesign(FormInstance, true); которая и выставила ComponentState.
Переделал по другому и всё заработало....
Спасибо за помощь

Свойство ComponentState у TForm в DreamDesigner Найти похожие ветки