Как скрыть все визуальные компоненты в зависимости от параметра ?

← →
ORMADA © (2004-03-31 09:39) [0]

Не пойму чё-то как написать универсальный код который будет скрывать все ВИЗУЛЬНЫЕ компонеты
сейчас это делаю так что есть не совсем верно так как при добавлении нового типа компонентов надо лезть сюда и править ?
Пример:
For i := 0 To ComponentCount - 1 Do
If Components[ i ].Tag = -1 Then
If Components[ i ] Is TMenuItem Then TMenuItem(Components[ i ]).Visible := ParamCount > 0
Else
If Components[ i ] Is TPanel Then TPanel(Components[ i ]).Visible := ParamCount > 0
и .т.д.
Как узнать что компонент ВИЗУЛЬНОГО класса ?

← →
Serge © (2004-03-31 09:42) [1]

Проверять объекты на наличие свойства Visible

← →
ORMADA © (2004-03-31 09:43) [2]

2 Serge
как ????

← →
Serge © (2004-03-31 09:45) [3]

Я делал так, мобыть мастера покажут что-то оптимальнее и правильнее.

p : pointer;
...
p := TypInfo.GetPropInfo(TWinControl(Sender).Controls[i].ClassInfo, "Visible");
If (p <> Nil) Then TypInfo.SetOrdProp(TWinControl(Sender).Controls[i], p, longint(state));
...

← →
Sun bittern © (2004-03-31 09:45) [4]

If Components[ i ] Is TPanel
на
If Components[ i ] Is TControl, TWinControl

← →
ЮЮ © (2004-03-31 09:46) [5]

Для всех наследников TControl достаточно одной строчки

If Components[i] Is TСontrol Then TСontrol(Components[i]).Visible := ParamCount > 0

ну для TMenuItem (и ему подобным) придётся оставить свои проверки

← →
Serge © (2004-03-31 09:47) [6]

state (boolean) u menia bil parametrom functzii

← →
ORMADA © (2004-03-31 09:48) [7]

:))))))) ПАСИБА

← →
Sun bittern © (2004-03-31 09:49) [8]

Любимая RTTI :)

В uses TypInfo;

// Если некое свойство у некого объекта
Function HasProperty(AComponent: TObject; APropertyName: String): Boolean;
var PropInfo: PPropInfo;
Begin
PropInfo := GetPropInfo(AComponent.ClassInfo, APropertyName);
Result := PropInfo <> Nil;
End;

← →
ORMADA © (2004-03-31 10:01) [9]

Sun bittern © а отключать потом визибл как ?

← →
Sun bittern © (2004-03-31 10:07) [10]

Также из технологии RTTI

SetPropValue(объект, имя свойства, значение);

Использовать наличие свойства Visible как критерий принадлежности компонента к визуальным, это простое, удобное и неправильное решение данной проблемы. (Пример из VCL: класс TField, пример из жизни: никто не мешает мне написать наследника TComponent и объявить там свойство Visible).

Кусок из хелпа:
The TControl branch consists of components that descend from TControl but not TWinControl (TWidgetControl in CLX applications). Classes in this branch are controls: visual objects that the user can see and manipulate at runtime.

Придерживаясь данного определения: визуальный компонент - это наследник TControl.

Mike_Goblin © (31.03.04 10:34) [12]

Да удобно, но с граблями (упустил из виду).
Надежнее отслеживать TControl.
Так же нет гарантии что в
Sun bittern © (31.03.04 09:49) [8]
Visible действительно типа Boolean - еще одна грабля

Mike_Goblin ©
посмотрел ветку еще раз

ЮЮ © (31.03.04 09:46) [5] - TMenuItem (Невизуальный)
С RTTI похоже удобней (но надо быть внимательней) и не попасть в сиуацию Mike_Goblin © (31.03.04 10:34) [12], особенно если Visible может оказаться не Boolean - это если разработчик уверен на 100%, что он не будет использовать классы с такими property в своем проекте. Так что похоже на свой страх и риск.

Как скрыть все визуальные компоненты в зависимости от параметра ? Найти похожие ветки