[gewasop]

Допустим на форме есть:
100 Edit-ов
50 Button-ов
500 ComboBox-ов

Можно ли для них всех в коде изменить какое-либо свойство, которое есть у всех? Например Enabled.

Не писать же:

Код:

Edit1.Enabled := False;
Edit2.Enabled := False;
...
Edit100.Enabled := False;

и т.д.

[Alegun]

Можно явно, поиском

Код:

...
var
 i: integer;
begin
 for i:= 1 to 100 do
  (FindComponent('Edit' + IntToStr(i)) as TEdit).Enabled:= false;
end;

или неявно, опросом

Код:

...
var
i: integer;
begin
 for i:= 0 to ControlCount - 1 do
  if (Controls[i] is TCombobox) then
      Controls[i].Enabled:= false;
end;

для второго варианта требуется внимательность т.к. поменяются свойства у всех компонентов данного класса лежащих на форме

[gewasop]

Неявный чето неработает.

[Alegun]

Это работает под D7, а у вас в хеке возможно нужно изменить

Код:

...
  (Controls[i] as TComboBox).Enabled:= false;
...

или может контролы по-другому как-то нужно опрашивать, точно даже и не знаю :-)

[icWasya]

Alegun или неявно

Таким способом (перебором контролов) можно найти только те контролы, которые лежат непосредственно на форме. Если они находятся на какой-нибудь панели, то так Вы их не найдёте. Придётся сделать рекурсивный поиск.

[NumLock]

property Components