![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
VISIBLE
ankazh © (2012-06-17 19:04:00)Есть ли возможность сделать 1. все компоненты на форме невидимыми 2. сделать невидимыми компонеты определенного класса.
ankazh (2012-06-17 20:05:00) [21]спасибо огромное!
Inovet (2012-06-17 20:02:00) [22]> [8] Anatoly Podgoretsky © (17.06.12 19:57)
> Какой смысл проверять по Components, если там может не быть
> всех контролов.
Ну хорошо. Тогда ещё так:
(Components[i] as TControl).Visible := false;
Anatoly Podgoretsky (2012-06-17 19:57:00) [23]> Inovet (17.06.2012 19:53:07) [7]
Какой смысл проверять по Components, если там может не быть всех контролов.
Да и невизуальные компоненты никого не интересуют
Inovet (2012-06-17 19:53:00) [24]> [6] Anatoly Podgoretsky © (17.06.12 19:50)
> Поскольку речь об визуальных компонентах, то надо по Controls
Ну да, в вопросе как бы неявно подразумевалоиь Controls. Но вдруг не только.
Anatoly Podgoretsky (2012-06-17 19:50:00) [25]
> Inovet © (17.06.12 19:47) [5]
Поскольку речь об визуальных компонентах, то надо по Controls
Inovet (2012-06-17 19:47:00) [26]
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;
Inovet (2012-06-17 19:42:00) [27]1. Пройтись в цикле по
Components
ComponentCount
2. проверять на принадлежность к классу
ankazh (2012-06-17 19:31:00) [28]эээээ затруднение.... Form1.(надо что-то вроде allcomponents).visible:=false;
Anatoly Podgoretsky (2012-06-17 19:24:00) [29]Да
Да
При условии, что это видимые компоненты.
Virgo_Style (2012-06-17 19:22:00) [30]да, есть.
что именно вызывает затруднения?