VPF::TControl и protected property Color - Форум программистов

Gwire

Дата 19.4.2009, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 7.8.2007
Где: Николаев

Репутация: 1
Всего: 4

Всем привет.
На панели (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 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116

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;

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

Это сообщение отредактировал(а) volvo877 - 19.4.2009, 21:49

Gwire

Дата 22.4.2009, 11:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 7.8.2007
Где: Николаев

Репутация: 1
Всего: 4

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

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

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

Это сообщение отредактировал(а) Gwire - 4.6.2009, 13:14

Shaggy

Дата 22.4.2009, 17:27 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 2.5.2007
Где: г.Ижевск

Репутация: 3
Всего: 5

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 7.8.2007
Где: Николаев

Репутация: 1
Всего: 4

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »