Скачать: CL | DM;

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

← →
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 - не компонент, а эксперт.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c