Скачать: CL | DM;

Как убрать свойство с published?   Найти похожие ветки 

← →
Святослав ©   (2007-01-24 01:21) [0]

Помогите убрать свойство Caption в собственном дочернем компоненте!
Вариант переписать property Caption в private наработает!!!

 TMy = class(TPanel)

 private
   FTx:TLabel;
   function GetTx:TLabel;
   procedure SetTx(Tx:TLabel);
   procedure SetParent(AParent: TWinControl); override;
   property Caption;
   { Private declarations }
 protected
   { Protected declarations }
 public
   { Public declarations }
 published
   constructor Create(AOwner: TComponent);override;
   property Tx:TLabel read GetTx write SetTx;
   { Published declarations }
 end;

---

← →
Palladin ©   (2007-01-24 01:24) [1]

> Как убрать свойство с published?

никак

---

← →
Святослав ©   (2007-01-24 01:29) [2]

> никак

Грусно :(

---

← →
RASkov   (2007-01-24 01:54) [3]

> TMy = class(TPanel)

Наследуй от TCustomPanel
только придется заново нужные свойства TPanel объявлять

---

← →
Германн ©   (2007-01-24 02:04) [4]

> Святослав ©   (24.01.07 01:21)
>
> Помогите убрать свойство Caption в собственном дочернем
> компоненте!
> Вариант переписать property Caption в private наработает!
> !!
>

Естественно. Видимость свойства в наследнике можно только повысить, но никак не понизить. Однако и не понятно зачем? Может озвучишь суть, которая тебе нужна? Может есть другие пути решения данной проблемы?

---

← →
Джо ©   (2007-01-24 02:54) [5]

> [3] RASkov   (24.01.07 01:54)
> > TMy = class(TPanel)
>
> Наследуй от TCustomPanel
> только придется заново нужные свойства TPanel объявлять

Caption находится в protected аж в TControl. И в private его уже не поместить, как и сказал [1] Palladin ©.

---

← →
Loginov Dmitry ©   (2007-01-24 07:48) [6]

> Видимость свойства в наследнике можно только повысить, но
> никак не понизить.


Странно! Буквально не так давно приходилось понижать видимость свойств Top, Heigth, Width, Left в наследнике TPanel. Засунул свойства в private - и во-о-ля!

---

← →
MBo ©   (2007-01-24 08:23) [7]

>Засунул свойства в private - и во-о-ля!

Да ну????

---

← →
Ega23 ©   (2007-01-24 09:08) [8]

> MBo ©   (24.01.07 08:23) [7]


этому Флёнов учит, простым смертным этого не понять...  :)

---

← →
Loginov Dmitry ©   (2007-01-24 14:53) [9]

> Да ну????


Хм... Засунуть-то засунул, а толку действительно никакого нету :(

---

← →
Джо ©   (2007-01-24 15:00) [10]

> [9] Loginov Dmitry ©   (24.01.07 14:53)
> > Да ну????
>
>
> Хм... Засунуть-то засунул, а толку действительно никакого
> нету :(

Warning"и читать нужно :) Да и вообще, ну сам посуди — чтобы это было за ООП, когда потомки смогли бы уменьшать область видимости членов предка?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.027 c