Delphi Найти Компонент На Форме

Для того чтобы найти компонент на форме в Delphi, можно воспользоваться методом FindComponent. Данный метод возвращает объект компонента, если он найден на форме, либо nil, если компонент не найден. Пример кода:

var  component: TComponent;begin  component := Self.FindComponent('Button1');  if Assigned(component) and (component is TButton) then    (component as TButton).Caption := 'Нажата кнопка';end;

В данном примере мы ищем компонент на форме с именем 'Button1'. Если компонент найден, то мы проверяем, что это действительно экземпляр класса TButton, и устанавливаем текст кнопки на 'Нажата кнопка'.Также можно воспользоваться другим способом поиска компонента - использовать свойство Components формы, которое содержит список всех компонентов на форме.

var  i: Integer;  component: TComponent;begin  for i := 0 to ComponentCount - 1 do  begin    component := Components[i];    if (component is TButton) and (component.Name = 'Button1') then      (component as TButton).Caption := 'Нажата кнопка';  end;end;

В данном примере мы перебираем все компоненты на форме и проверяем, что это экземпляр класса TButton с именем 'Button1'. Если компонент найден, то мы устанавливаем текст кнопки на 'Нажата кнопка'.