Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > TControl и protected property Color

Автор: Gwire 19.4.2009, 20:52

Всем привет.
На панели (TPanel) размещено несколько объектов (TEdit, TRadioBox, TComboBox, TColorBox, ...).
На форме вне панели размещен TCheckBox. Если он "False" то нужно деактивировать все объекты.
Это я делаю так:

Код

var i: Integer;
    C: TControl;
begin
    for i:=0 to ComponentCount-1 do
    begin
        C:= (Components[i] as TControl);
        if C.Parent = Panel1 then C.Enabled:= CheckBox1.Checked;
    end;
end;

Но есть одно "Но" - такие объекты как TEdit, TComboBox, TColorBox не меняют цвет на clBtnFace.
Можно сделать конечно так

Код


var ...
    NewColor: TColor;
begin
    NewColor:= IfThen( CheckBox1.Checked, clWindow, clBtnFace); // uses Math
    for ...
        if C.Parent = Panel1 then
        begin
            C.Enabled:= CheckBox1.Checked;
            if C is TEdit then (C as TEdit).Color:= NewColor;
            if C is TSpinEdit then (C as TSpinEdit).Color:= NewColor;
            // и по очереди проверять все компоненты
        end;
    ...
end;

А мне хотелось бы, зная то что все визуальные обекты наследованы от TControl, обратится к property Color этого класса.
Но TControl.Color protected и к нему нельзя вот так <-- обратится.
Подскажите может есть какие варианты, чтобы получилось типа:

Код


if (C is TEdit) or (C is TSpinEdit) or ...
    then ... // тут нечто чего я не знаю   (* Color:= NewColor *)

Автор: volvo877 19.4.2009, 21:48

Gwire, ну, сделай вот так:

Код


    for i:=0 to ComponentCount-1 do
    begin
      C:= (Components[i] as TControl);
      if C.Parent = Panel1 then
      begin
        C.Enabled:= CheckBox1.Checked;
        if IsPublishedProp(C ,'Color') then SetOrdProp(C, 'Color', NewColor); // Uses TypInfo
      end;
    end;

Ты это имел в виду?

Автор: Gwire 22.4.2009, 11:33

Гы. Круто. volvo877, благодарю.
Правда приведеный пример перекрашивает все компоненты.
smile

Но недостатком, это назвать сложно.
Да и от примера большего и не требовалось.

PS: Класс. Меньше текста - меньше ошибок.

Автор: Shaggy 22.4.2009, 17:27

Код


Type
  THackControl = Class(TControl)
      Public
        Property Color;
    End;

  ...
  For I:=0 To Panel1.ControlCount-1 Do
    With THackControl(Controls[0]) Do
    Begin
      Enabled:=CheckBox1.Checked;
      Color:=NewColor;
    End;

Автор: Gwire 22.4.2009, 23:00

Shaggy, твой вариант тоже хорошь - тем что не надо применять лишних библиотек.
Я дулал над ним... Но у меня личное правило использовать по возможности, только стандартные типы. А так как само понятие "Класс" для Delphi стандартно, то должны быть и стандартные функции для работы с ними.