Текущий архив: 2005.03.20;
Скачать: CL | DM;

Вниз

Наследники   Найти похожие ветки 

← →
webpauk   (2005-03-04 17:25) [0]

Есть
Tcontrol = class;
public
property Enabled: Boolean read fEnabled write SetEnabled;
end;
Есть
TcustomControl = class(TControl);

Вопрос: как у TcustomControl исключить какое-нибудь свойство Tcontrol?

---

← →
BlackTr   (2005-03-04 17:30) [1]


property Enabled: Boolean read fEnabled;


---

← →
mrAld ©   (2005-03-04 17:37) [2]

поставить свойство в TControl в private
или я что-то не так понял?

---

← →
webpauk   (2005-03-04 17:38) [3]

это исключит запись в свойство. Надо полностью всё свойство.

---

← →
webpauk   (2005-03-04 17:40) [4]

>mrAld
Tcontrol - свойство Enabled - надо.
TcustomControl - не надо!

---

← →
begin...end ©   (2005-03-04 17:46) [5]

> webpauk   (04.03.05 17:25)

Никак.

---

← →
Anton_K ©   (2005-03-04 17:46) [6]

>webpauk

Это нарушает принципы ООП.

---

← →
Defunct ©   (2005-03-04 17:47) [7]

низя исключить свойства предка.

---

← →
webpauk   (2005-03-04 17:48) [8]

Вот ведь  гадство какое!
Ладно запрещу хотя бы запись!

---

← →
Vlad ©   (2005-03-04 17:50) [9]

Может в protected вынести?

Tcontrol = class;
public
  property Enabled: Boolean read fEnabled write SetEnabled;
end;

TcustomControl = class(TControl);
protected
  property Enabled;
end;

---

← →
webpauk   (2005-03-04 17:50) [10]

А чего такое?

[Warning] Control.pas(80): Property declaration references ancestor private "TControl.fEnabled"

---

← →
webpauk   (2005-03-04 17:52) [11]

> Vlad
Спасибо!

---

← →
begin...end ©   (2005-03-04 17:57) [12]

> Vlad ©   (04.03.05 17:50) [9]

Сужение области видимости свойства в потомке невозможно.

---

← →
MU   (2005-03-04 18:02) [13]

может, создать предка обоих этих классов

TBaseControl = class(Txxxxx);
protected
 property Enabled read ... write ...;
end;
а у двух потомков уже "открывать", что надо?

---

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

Текущий архив: 2005.03.20;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.043 c