Delphi Как Узнать Что Компонент Виден

Для того чтобы узнать, что компонент виден, можно воспользоваться свойством Visible. Если значение этого свойства равно True, то компонент отображается на форме, иначе – скрыт. Если нужно проверить, что компонент виден и находится в очереди на перерисовку, необходимо воспользоваться методом Update, который вызывает перерисовку компонента. Пример кода на Delphi:

if Button1.Visible then
  begin
    // Компонент Button1 виден на форме
    Button1.Caption := 'Нажмите меня';
    Button1.Update;
  end
else
  // Компонент Button1 скрыт на форме

Если нужно проверить для всех компонентов на форме и на ее дочерних элементах, можно воспользоваться рекурсивной функцией:

procedure CheckVisible(AControl: TControl);
var
  i: Integer;
begin
  if AControl.Visible then
  begin
    // Компонент виден на форме
    // Добавляем его в список
    Memo1.Lines.Add(AControl.Name);
  end;
  for i := 0 to AControl.ControlCount - 1 do
    CheckVisible(AControl.Controls[i]);
end;

Эта функция проверяет видимость всех компонентов на форме и добавляет их имена в список Memo1.