Наследники

← →
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
Спасибо!

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

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

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

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