Советы по Delphi

       

Вложенные свойства


Для регистрации контейнерного класса в процедуре Register вы должны вызвать RegisterPropertyEditor. Приблизительно так:

RegisterPropertyEditor( TypeInfo( TYourContainedClass ),TYourContainer,'YourContainedPropery',TClassProperty ) ;

Все это задокументировано в справке помощи по созданию компонентов. Первым всегда идет параметр TypeInfo() с контейнерным классом, затем сам контейнерный класс, затем имя контейнерного свойства, затем TClassProperty, который регистрирует расширение свойства класса.

А где взять реальный примерчик?

Посмотрите как это делаю я. Сохраните приведенный модуль с именем CONTAIN.PAS и добавите его к вашей палитре.

------------------------CONTAIN.PAS--------------------------------

unit Contain;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, ExtCtrls;
typeTContainer = class( TComponent )privateFImage : TImage ;publicconstructor Create( AOwner : TComponent ) ; override ;publishedproperty Image : TImage read FImage write FImage ;end ;
procedure Register;
implementation
uses
DsgnIntf ;
constructor TContainer.Create( AOwner : TComponent ) ;
begininherited Create( AOwner ) ;FImage := TImage.Create( Self ) ;end ;
procedure Register;beginRegisterComponents('Samples', [TContainer]);RegisterPropertyEditor( TypeInfo( TImage ),TContainer,'Image',TClassProperty ) ;end;
end.

----------------------------------------------------------------

Это все?

Mike Scott
Mobius Ltd. [000414]



Содержание раздела