Программирование в Delphi. Барков И.А - 22 стр.

function Focused: Boolean-    Показывает, имеет ли элемент в данный момент фокус ввода.

function CanFocus: Boolean;   Возвращает True, если оконный элемент может получить фокус ввода
                              (для этого он и все его родительские оконные элементы управления
                              должны быть активными (Enabled) и видимыми).
procedure SetFocus;           Запрашивает у родительской формы получение фокуса ввода.


        При получении и утере фокуса оконными компонентами происходят события:
        (Pb) property OnEnter: TNotifyEvent;
        (Р1э) property OnExit: TNotifyEvent;
        TNotifyEvent — простейшее событие — извещение, не имеющее параметров. Свойство
        (Pb) property TabStop: Boolean;
показывает, есть ли на данном элементе табулостоп. Между элементами формы, у которых TabStop ус-
тановлено в Тше, можно передвигаться (перемещать фокус ввода) нажатиями клавиш
/+. Очередность перехода фокуса определяется специальным списком. Положение
элемента управления в родительском списке табулостопов определяется при помощи свойства:
        (Pb) property TabOrder: TTabOrder;
        TTabOrder = -1..32767;
        При разработке формы номера присваиваются последовательно в порядке добавления компо-
нентов, начиная с 0. Нулевой компонент первым получит фокус при активизации. Программист может
менять значение этого свойства, не заботясь об учете других элементов, т. к. перенумерация произво-
дится автоматически. При отсутствии табулостопа на элементе его свойство TabOrder равно -1.
        Можно получить и весь список, содержащий иерархию дочерних элементов, имеющих табуло-
стоп:
        procedure GetTabOrderList(List: TList) ;
        Этот метод добавляет в уже существующий список List все дочерние компоненты, имеющие
табулостоп; каждый из них при добавлении делает то же самое. Таким образом, элементы списка име-
ют тип TWinControl.
        Два метода предназначены для управления показом перекрывающихся дочерних элементов
управления:
        procedure BringToFront;
        procedure SendToBack;
        Метод BringToFront переносит элемент в конец родительского списка (визуализация начинает-
ся с первого) и показывает его поверх остальных. SendToBack, наоборот, переносит элемент в начало и
таким образом сверху окажутся все перекрывающиеся с ним. При этом элемент теряет фокус ввода
(если имел).
        Класс инкапсулирует шрифт Windows. В Delphi допускаются только горизонтально располо-
женные шрифты. В конструкторе объекта по умолчанию принимается шрифт System цвета clWindow-
Text размера 10 пунктов.

                              Привязка к родительским свойствам

       Для придания приложению строгого внешнего вида требуется, чтобы все визуальные компо-
ненты имели единый стиль. Чтобы избавиться от необходимости изменять код элементов-потомков
при изменении внешнего вида предка, в них нужно правильно установить свойства:
       (PDI property ParentColor: boolean;
       @ property ParentCtl3D: boolean;
       (Pb) property ParentFont: boolean;
       (pS) property ParentShowHint: boolean;
       Все четыре свойства отвечают за наличие связи между соответствующими свойствами в роди-
тельских и дочерних элементах. Если какое-то из них у элемента установлено в True, это означает, что


                                                22