VISIBLE

← →
ankazh © (2012-06-17 19:04) [0]

Есть ли возможность сделать 1. все компоненты на форме невидимыми 2. сделать невидимыми компонеты определенного класса.

← →
Virgo_Style © (2012-06-17 19:22) [1]

да, есть.
что именно вызывает затруднения?

← →
Anatoly Podgoretsky © (2012-06-17 19:24) [2]

Да
Да
При условии, что это видимые компоненты.

← →
ankazh © (2012-06-17 19:31) [3]

эээээ затруднение.... Form1.(надо что-то вроде allcomponents).visible:=false;

← →
Inovet © (2012-06-17 19:42) [4]

1. Пройтись в цикле по
Components
ComponentCount
2. проверять на принадлежность к классу

← →
Inovet © (2012-06-17 19:47) [5]

procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to ComponentCount - 1 do begin if Components[i] is TEdit then begin (Components[i] as TEdit).Visible := false; end; end; end;

← →
Anatoly Podgoretsky © (2012-06-17 19:50) [6]

> Inovet © (17.06.12 19:47) [5]

Поскольку речь об визуальных компонентах, то надо по Controls

← →
Inovet © (2012-06-17 19:53) [7]

> [6] Anatoly Podgoretsky © (17.06.12 19:50)
> Поскольку речь об визуальных компонентах, то надо по Controls

Ну да, в вопросе как бы неявно подразумевалоиь Controls. Но вдруг не только.

← →
Anatoly Podgoretsky © (2012-06-17 19:57) [8]

> Inovet (17.06.2012 19:53:07) [7]

Какой смысл проверять по Components, если там может не быть всех контролов.
Да и невизуальные компоненты никого не интересуют

← →
Inovet © (2012-06-17 20:02) [9]

> [8] Anatoly Podgoretsky © (17.06.12 19:57)
> Какой смысл проверять по Components, если там может не быть
> всех контролов.

Ну хорошо. Тогда ещё так:
(Components[i] as TControl).Visible := false;

← →
ankazh © (2012-06-17 20:05) [10]

спасибо огромное!

← →
Inovet © (2012-06-17 20:06) [11]

> [9] Inovet © (17.06.12 20:02)
> (Components[i] as TControl).Visible := false;

в смысле
Controls[i].Visible := false;
Но назад в видимые уже не переключить.

← →
stas © (2012-06-17 21:24) [12]

А еще можно положить на форму панель и делать ее не видимой.

← →
Anatoly Podgoretsky © (2012-06-17 21:42) [13]

> Inovet (17.06.2012 20:02:09) [9]

Это еще хуже, чревато рантайм ошибками, поскольку большинство компонент не
являются TControl и не имеет свойства Visible
Непонятно зачем все эти извращения? Когда Controls полностью и
надежно решают задачу

← →
Inovet © (2012-06-17 22:30) [14]

> [13] Anatoly Podgoretsky © (17.06.12 21:42)
> Это еще хуже, чревато рантайм ошибками,

Я ниже поправил. Разумеется везде заменить Components на Control. Но снова видимыми их так не сделать, сам же говорил.

← →
Омлет © (2012-06-17 23:12) [15]

> Но снова видимыми их так не сделать, сам же говорил.

Почему не сделать? Всё работает.

procedure TForm1.SetControlsVisible(Value: boolean; AClass: TClass); var i: integer; begin for i := 0 to ControlCount - 1 do if Controls[i] is AClass then Controls[i].Visible := Value; end; procedure TForm1.Button1Click(Sender: TObject); begin SetControlsVisible(not Edit1.Visible, TEdit); end;

← →
Inovet © (2012-06-17 23:57) [16]

> [15] Омлет © (17.06.12 23:12)
> Всё работает.

Да, меня копипаст подвёл.

← →
Германн © (2012-06-18 02:17) [17]

> Anatoly Podgoretsky © (17.06.12 19:50) [6]
>
>
> > Inovet © (17.06.12 19:47) [5]
>
> Поскольку речь об визуальных компонентах, то надо по Controls
>

Так тогда нужно рекурсию включать :(

← →
Anatoly Podgoretsky © (2012-06-18 07:22) [18]

> Германн (18.06.2012 02:17:17) [17]

А по components не надо чтоли?

← →
sniknik © (2012-06-18 07:52) [19]

> Так тогда нужно рекурсию включать :(
нафига?

> А по components не надо чтоли?
не надо, ни с components ни с Controls.

← →
Омлет © (2012-06-18 08:58) [20]

> sniknik © (18.06.12 07:52) [19]

Для Controls нужна рекурсия.

procedure SetControlsVisible(AParent: TWinControl; Value: boolean; AClass: TClass); var i: integer; Ctrl: TControl; begin for i := 0 to AParent.ControlCount - 1 do begin Ctrl := AParent.Controls[i]; if Ctrl is AClass then Ctrl.Visible := Value; if Ctrl is TWinControl then SetControlsVisible(TWinControl(Ctrl), Value, AClass); end; end;

← →
brother © (2012-06-18 09:08) [21]

эээ, так если AParent невидим, то и все, что на нем тож не видно, зачем их еще приеудительно инвизить?

> Для Controls нужна рекурсия.
> нафига?
не код но смысл... я это спрашивал, а не как сделать.

> sniknik © (18.06.12 07:52) [19]

Смысл - в задаче:
> сделать невидимыми компонеты определенного класса (см. [0])

Если, к примеру, едиты раскиданы по разным панелькам, как их все скрыть без рекурсии?

> зачем их еще приеудительно инвизить?
до меня дошло, например невидимыми нужно делать эдиты, а один из, лежит на панели (не на форме, в чилдах формы его не будет)... значит делаем и его, не обращая внимание на вопрос
> 1. все компоненты на форме невидимыми 2. сделать невидимыми компонеты определенного класса.
хотя, конечно это уже философия... что именно считать лежащим на форме, считать ли детей, и ее (что делаем и зачем) естественно проигнорировали.

> как их все скрыть без рекурсии?
нафига? если они на панельках а не на форме. (см. [0])

> sniknik © (18.06.12 09:38) [25]

На столе стоит поднос, а на подносе - стакан.
С гегельянской точки зрения стакан стоит и на подносе, и на столе одновременно ))

> С гегельянской точки зрения
программистам нужно запретить изучать философию...

> [27] sniknik © (18.06.12 10:01)
> > С гегельянской точки зрения
> программистам нужно запретить изучать философию...

и правильную постановку ТЗ )

ИМХО XYZ
Автору нужно Create in run-time...

VISIBLE Найти похожие ветки