Вложенные свойства
Вложенные свойства
Автор: Mike Scott (Mobius Ltd)
- Почему программисты весят больше чем другие люди?
Для регистрации контейнерного класса в процедуре Register вы должны вызвать
RegisterPropertyEditor. Приблизительно так:
RegisterPropertyEditor( TypeInfo( TYourContainedClass ),
TYourContainer, 'YourContainedPropery', TClassProperty ) ;
Все это задокументировано в справке помощи по созданию компонентов. Первым
всегда идет параметр TypeInfo() с контейнерным классом, затем сам контейнерный
класс, затем имя контейнерного свойства, затем TClassProperty, который
регистрирует расширение свойства класса.
А где взять реальный примерчик?
Посмотрите как это делаю я. Сохраните приведенный модуль с именем CONTAIN.PAS
и добавите его к вашей палитре.
unit Contain;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, ExtCtrls;
type
TContainer = class (TComponent)
private
FImage: TImage;
public
constructor Create(AOwner: TComponent); override ;
published
property Image: TImage read FImage write FImage;
end ;
procedure Register ;
implementation
uses DsgnIntf;
constructor TContainer.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FImage := TImage.Create(Self);
end ;
procedure Register ;
begin
RegisterComponents('Samples', [TContainer]);
RegisterPropertyEditor(TypeInfo(TImage),
TContainer,
'Image',
TClassProperty);
end ;
end .
Статья Вложенные свойства раздела Компоненты и Классы Свойства и События может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
:: Главная :: Свойства и События ::
