🚀 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
> 

Ustawiam. Tak wygląda konstruktor:

constructor TMRichEdit.Create(AOwner: TComponent);
Begin
   inherited Create(AOwner);

   Width := 250;
   Height := 200;

   BevelOuter := bvNone;
   BorderStyle := bsSingle;
   Ctl3D := false;
   ParentCtl3D := false;

   FRichEdit := TRichEdit.Create(Self);
   FRichEdit.Name := 'RichEdit';
   FRichEdit.Left := 0;
   FRichEdit.Top := 0;
   FRichEdit.Width := 100;
   FRichEdit.Height := 100;
   FRichEdit.BorderStyle := bsNone;
   FRichEdit.ParentFont := true;
   FRichEdit.Parent := Self;

   FRichEdit.SetSubComponent(true);

   FRichEdit.Align := alTop;
   FRichEdit.Height := Height- 40;
   if not (csDesigning in ComponentState) then
     FRichEdit.Lines.Text :='';
End;

Przypuszczam, że to jakaś ułomność Object Inspector-a w Delphi 2009, bo w Delphi 2006 jest OK.

-- 
Pzdr.
Marek