TControl.Color

[SNUPY]

Доброго времени суток товарищи!!!! Вот мне интересно стало.... Есть "защищенное" свойтво класса Tcontrol Color.... В принципе чего я хочу??? Я хочу сделать продедуру, которая (скажем утрируя) у которй входным параметром будет потомок TControl у которого есть свойство Color (с узим круг — TComboBox, TMemo, TEdit и TLabelEdit) и эта продцедура поменяет его на белый. ЗЫ у меня голову приходит только перегрузка продцедур =))))

[Stilet]

фррбрбр... пмедлнее, я зписваю...
Еще раз и подробнее.

у которого есть свойство Color (с узим круг — TComboBox, TMemo, TEdit и TLabelEdit)

А разве оно запротекченное?

[SNUPY]

Что за "запротекченное"... типо абстрактно?

[Stilet]

Что за "запротекченное"

Ну в разделе Protected. Ты же енто имел ввиду под словом "защищенное" свойтво

[SNUPY]

Аааа.. ну тогда понятно =)))...

А разве оно запротекченное?

эмм... Color сидит в же разделе Protected... следовательно оно запротекчено =)))... хотя сомнения меня гложат из-за того, что она property.... короче говоря создал тему для повышения собственного опыта работы с классами =))))... хотелось так сказать услышать умные мысли =)))

[Stilet]

хотелось так сказать услышать умные мысли

Ок. Обычно чтоб добраться до protected и private полей делают (не всегда удачно) приведение типов этого класса к его родителю.
т.е.
если есть

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
 c=class
  private
   q:integer;
  Protected
   b:char;
  Public
   e:byte;
 end;

 v=class(c)
   procedure qq;
 end;
{ v }

procedure v.qq;
begin
 writeln(c(self).b);
// т.е. класс приводится к типу родителя.

end;

var aga:v;
begin
 aga:=v.Create;
 aga.b:='e';
 aga.qq;
 readln;
end.

Пример не особо удачный, я просто уже додому ухожу, это бессмысленно в том случае если оба класса в одном модуле, ибо они поля друг друга видят нормально.
Но если разнести их по разным модулям то приведение типов помогает добраться до закрытых полей и методов

Вот здесь я показывал пример как достучаться к закрытому методу TCrtfoxGrid(grid).MoveColumn(k,k-1);
путем приведения класса к родителю:
http://www.programmersforum.ru/showt...ht=TCrtfoxGrid