Как нарисовать рамку фокуса |
![]() |
![]() |
Статьи |
Для того, чтобы создать более дружественный интерфейс, можно рисовать рамку фокуса вокруг активного компонента. Для этой цели идеально подходит объект TShape, который представляет собой геометрическую фигуру, которая может быть помещена на форму. Каждый раз, когда компонент находится в фокусе, мы будем перемещать объект TShape в его местоположение. ![]() Для начала нужно создать объект TShape в событии OnCreate формы и придать ему свойства:
Примечание: переменная focusRect типа TShape объявляется в объявлении переменной формы. Теперь, когда фокус переходит от одного управления к другому, мы также передвигаем рамку фокуса. Мы будем использовать процедуру ActiveControlChange, обрабатывая событие OnActiveControlChange глобального объекта Screen.
Размеры объекта focusRect подстраиваются под размеры активного управления, как мы и написали выше в коде. Ну и наконец, нужно освободить память при закрытии приложения. Никогда не забывайте делать это!
|
Комментарии
RSS лента комментариев этой записи