IWebTextArea.SelStart

Синтаксис

SelStart: Integer;

Описание

Свойство SelStart возвращает позицию, в которой расположен курсор или начинается выделение текста в компоненте.

Пример

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

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

Sub Button1OnClick;
Var
    start, end_: Integer;
Begin
    start := TextArea1.SelStart;
    end_ := TextArea1.SelEnd;
    If start = end_ Then
        Self.Text := "В TextArea курсор в позиции " + start.ToString;
    Else
        Self.Text := "В TextArea выделен текст: " + TextArea1.Text.SubString(start, end_ - start);
    End If;
End Sub Button1OnClick;

При нажатии на кнопку в заголовок формы будет выведена информация о расположении курсора в компоненте TextArea или о выделенном в нём тексте.

См. также:

IWebTextArea