Иногда нам нужно выделить весь текст в текстовом поле, когда элемент управления текстовым полем получает фокус. Этого можно добиться с помощью свойств SelStart и SelLength. В частности, когда объект получает фокус, он выбирается спереди (SelStart=0), а выбранная длина равна длине текста (Len (Text1)). Исходный код выглядит следующим образом:
Частный подтекст1_GotFocus()
Текст1.СелСтарт = 0
Text1.SelLength = Len(Text1)
Конец субтитра
Событие GotFocus возникает, когда элемент управления получает фокус.