🚀 go-pugleaf

W dniu 01.06.2018 o 10:09, Krzysztof Szyszka pisze:
>> Użytkownik "Marek"  napisał w wiadomości grup dyskusyjnych:peplqc$2gv$1@node2.news.atman.pl...
>> Witajcie,
>>
>> tworzę sobie komponent TRichEditEx, który ma w sobie kontrolki, m.in. FRichEdit: TRichEdit,
>> którego property chciałbym publicznie udostępnić w TRichEditEx.
>>
>> type
>>    TMRichEditEx = class(TPanel)
>>    private
>>      FRichEdit: TRichEdit;
>>      //inne kontrolki
>>
>>    protected
>>      procedure WMSize(var Msg: TMessage); message WM_SIZE;
>>
>>    public
>>      constructor Create(AOwner: TComponent); override;
>>      destructor Destroy; override;
>>
>>    published
>>      property RichEdit: TRichEdit read FRichEdit;
>>
>>    end;
>>
>> O ile dla mojego komponentu TMRichEditEx w BDS2006 w Object Inspektorze pojawia się dodatkowa
>> rozwijalna gałąź kontrolki RichEdit z dostępem do jego property, to w Delphi 2009
>> jest tylko property, ale bez możliwości rozwinięcia drzewka.
>>
>>   Da się to jakoś zrobić, żebym mógł wyprowadzić w publicznych property mojego komponentu
>> TMRichEditEx publiczne property kontrolki FRichEdit?
> 
> Pokaż jak tworzysz tego RichEdita. Czy ustawiasz dla niego SetSubComponent?
> http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.Classes.TComponent.SetSubComponent
> 

Już wiem, w procedurze "Register" zabrakło rejestracji edytora właściwości sub-komponentu
klasy TRichEdit (RegisterPropertyEditor):

procedure Register;
begin
   RegisterComponents('Moje', [TMRichEdit]);
   RegisterPropertyEditor(TypeInfo(TRichEdit), TMRichEdit,'RichEdit', TClassProperty); //tego brakowało
end;

-- 
Pzdr.
Marek