И снова о свойствах формы

← →
veb (2003-05-27 11:36) [0]

Простите что снова обращаюсь к специалистам с тем же вопросом, но как сегодня выяснил, я на том же месте, где и был неделю назад.
Суть в том что необходимо получить несколько новых свойств формы в инспекторе объектов.

unit Unit1;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DesignIntf, DesignEditors;

type
TParentForm = class(TForm)
private
FAAA: Integer;
FOnInit: TNotifyEvent;
published
property AAA: Integer read FAAA write FAAA;
property OnInit: TNotifyEvent read FOnInit write FOnInit;
end;

Procedure Register;

var
ParentForm: TParentForm;

implementation
{$R *.dfm}

Procedure Register;
begin
RegisterCustomModule( TParentForm, TCustomModule);
end;

end.

Думаю что нет нужды говорить что в модуле Unit2 того же проекта(важное условие) у формы
TChildForm = class(TParentForm)
end;
не обнаружено в инспекторе объектов ни одного нового свойства. В чем проблема? И как решить.
PS. Кто реально захочет проверить не забудьте в опциях проекта на странице Package подключить в RunTime DesignIde.dcp

← →
KA_ © (2003-05-27 12:22) [1]

Убери Unit1 из проекта, создай новый package, в него добавь свой Unit1. В Unit1 добавь секцию initialization, в ней вызови процедуру Register. Установи этот package.
Теперь открывай новый проект, создавай в нем потомков своей формы и наслаждайся :)

← →
MBo © (2003-05-27 12:22) [2]

найди CCPack Сергея Орлика

← →
veb (2003-05-27 12:33) [3]

to KA_
Важным элементом является появление новых свойств в рамках одного проекта. Смысл в том что уже сейчас построена сложная иерархия форм и выносить ее в отдельный package не оправданно дорого.

to MBo
возможно что проект будет коммерческим и использование посторонних компонентов не приветствуется.

Спасибо. Может есть еще предложения?

← →
rounin (2003-05-27 12:43) [4]

CCPack - не компонент, а эксперт.

И снова о свойствах формы Найти похожие ветки