IWebFormComponent.Components

Синтаксис

Components: IWebComponents;

Описание

Свойство Components возвращает коллекцию компонентов, расположенных на веб-форме.

Пример

Для выполнения примера в репозитории предполагается наличие веб-формы, расположенных на ней каких-либо компонентов и кнопки с наименованием Button1.

Добавьте ссылки на системную сборку WebForms.

Sub Button1OnClick;
Var
    AllComponents: IWebComponents;
    Component: IWebComponent;
    c, i: Integer;
Begin
    AllComponents := Self.Components;
    c := AllComponents.Count;
    For i := 0 To c - 1 Do
        Component := AllComponents.Item(i);
        Debug.WriteLine("Component name: " + Component.Name);
        If Component Is IWebInput Then
            (Component As IWebInput).Enabled := False;
        End If;
    End For;
End Sub Button1OnClick;

При нажатии на кнопку в консоль среды разработки будут выведены наименования всех компонентов, расположенных на веб-форме. Если на веб-форме имеются какие-либо компоненты Input, то редактирование в них будет запрещено.

См. также:

IWebFormComponent