Список компонентов на форме

Иногда, когда нужно обратиться к однотипным компонентам на форме или обратиться к компоненту по имени, нужно обнаружить этот компонент. Вы можете получить список компонентов на форме в массиве семейства Components[i]. Также, когда компоненты сгруппированы, можно обратиться к ним как к семейству Controls[i].

Пример 1

В данном примере очистим все поля ввода TEdit, которые находятся на форме:

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

Пример 2

Во втором варианте очищаем все поля ввода, а также делаем их недоступными:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  for i:= 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
    begin
      TEdit(Components[i]).Clear;
      TEdit(Components[i]).Enabled:=false;
    end;
end;

—

01.09.2016

coder

Список компонентов на форме

Пример 1

Пример 2

Комментарии