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

Вниз

Помогите упростить код   Найти похожие ветки 

← →
Вопрошающий   (2007-08-15 10:05) [0]

Строю интерфейс через компоненты DevExpress. В одной из процедур присутствует такой код:
 if Sender is TcxDBMaskEdit then with TcxDBMaskEdit(Sender) do begin
   Style.Color := clSkyBlue;
   Style.Font.Color := clWindowText;
 end else if Sender is TcxTextEdit then with TcxTextEdit(Sender) do begin
..
 end else if Sender is TcxExtLookupComboBox then with TcxExtLookupComboBox(Sender) do begin
..
 end else if Sender is TcxCheckBox then with TcxCheckBox(Sender) do begin
..
 end else if Sender is TcxTextEdit then with TcxTextEdit(Sender) do begin
..
 end else if Sender is TcxDateEdit then with TcxDateEdit(Sender) do begin
..
 end;

При необходимости добавления нового класса надо добавлять еще одну строку. А процедур с похожим подходом около десяти :(
Можно ли как-то этот подход сделать "универсальным", т.е. смотреть на класс Sender"a и присваивать атрибуты?

---

← →
Dimka Maslov ©   (2007-08-15 10:15) [1]

Всем компонентам определённого класса прсваивается одинаковое значение свойства Tag, которое и анализируется в процедуре
case (Sender as TComponent).Tag of
 
end;

Если все эти компоненты наследованы от одного базового класса, то наверняка свойства у них одинаковые. И если надо утанавливать значения одних и тех же свойств, то полезно завести массив
StyleColors = array [1..xx] of TColor = (clSkyBlue, ...... )
StyleFontColors = array[1..xx] of TColor = (clWindowText, .....)тогда можно написать
with Sender as TBasicClass do begin
 Style.Color := StyleColors[Tag]
 Style.Font.Color := StyleFontColors[Tag]
end;

---

← →
Думкин ©   (2007-08-15 10:32) [2]

SetPropValue

---

← →
Вопрошающий   (2007-08-16 11:07) [3]

> Всем компонентам определённого класса прсваивается одинаковое
> значение свойства Tag, которое и анализируется в процедуре

Tag уже юзается для своих нужд :(


> Если все эти компоненты наследованы от одного базового класса

до некоторых свойств можно достучаться через базовый класс, до некоторых - нет (такое наследование)


> SetPropValue

Ммммм... Делфи под рукой сейчас нет, но вроде там используется строковый параметр с названием проперти, так?
Если есть такое свойство, как Style.Font типа TFont, как мне достучаться до этого свойства, потому что, если я ничего не путаю, при "Style.Font" вылетает ошибка доступа

---

← →
Думкин ©   (2007-08-16 11:16) [4]

Так ты к TFont и стучись, а не к к тому у кого он.

---

← →
Вопрошающий   (2007-08-17 02:25) [5]

Спасибо. Попробую

---

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

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

Наверх

Память: 0.47 MB
Время: 0.028 c