Import properties?

[Dibo]

Hi,

I'm creating component:

Code: Pascal  [Select][+][-]

1. type TMyRichMemo = class(TPanel)
2. private
3.   FRichMemo: TRichMemo;
4.   FSearchPanel: TPanel;
5. ..........
6. end;
7.  

This component have only TPanel propertys. Can I add some property from FRichMemo? Example:

Code: Pascal  [Select][+][-]

1. type TMyRichMemo = class(TPanel)
2. private
3.   FRichMemo: TRichMemo;
4.   FSearchPanel: TPanel;
5. public
6.   property ReadOnly: Boolean read FRichMemo.ReadOnly write FRichMemo.ReadOnly;
7. end;
8.  

Can I somehow add the property as above? (without implementation)

[José Mejuto]

This component have only TPanel propertys. Can I add some property from FRichMemo? Example:

Code: Pascal  [Select][+][-]

1. type TMyRichMemo = class(TPanel)
2. private
3.   FRichMemo: TRichMemo;
4.   FSearchPanel: TPanel;
5. public
6.   property ReadOnly: Boolean read FRichMemo.ReadOnly write FRichMemo.ReadOnly;
7. end;
8.  

Can I somehow add the property as above? (without implementation)

Hello,

Setter and getter:

Code: Pascal  [Select][+][-]

1. type TMyRichMemo = class(TPanel)
2.   procedure SetReadOnly(AValue: Boolean);
3.   function GetReadOnly; Boolean;
4. private
5.   FRichMemo: TRichMemo;
6.   FSearchPanel: TPanel;
7. public
8.   property ReadOnly: Boolean read GetReadOnly write SetReadOnly;
9. end;
10.  
11. procedure TMyRichMemo.SetReadOnly(AValue: Boolean);
12. begin
13.   FRichMemo.ReadOnly:=AValue;
14. end;
15.  
16. function TMyRichMemo.GetReadOnly; Boolean;
17. begin
18.   Result:=FRichMemo.ReadOnly;
19. end;
20.  

[Dibo]

Yes, but I must implement procedures SetXXX. There is no method to import propertys directly in object class definition?