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

вращают изменение ширины или высоты.
        При изображении большинства оконных элементов управления используют эффект "трехмер-
ности", создающий иллюзию приподнятости или вдавленное™ за счет подбора внешнего вида обрам-
ления. Наличие "трехмерности" задается свойством:
        (Рb) property Ctl3D: Boolean;
        Нужно уточнить, что это свойство есть не у всех компонентов. Для части компонентов трех-
мерность реализована средствами VCL; другая же часть (радиокнопки, флажки и др.) требует для соз-
дания трехмерного эффекта доступа к библиотеке CTL3DV2.DLL.
        Шрифт, которым выводится текст, связанный с элементом управления:
                property Font: TFont;
        Кисть, используемая для закрашивания рабочей области оконного элемента управления, пред-
ставлена свойством:
                (Ro) property Brush: TBrush;
        Она имеет цвет, содержащийся в свойстве Color (по умолчанию clWindow). На уровне TControl
оно доступно только по чтению:
                property Color: TColor;

                        2.6. Реакция на события от мыши и клавиатуры
       Традиционно пользователь может предусмотреть реакцию на нажатие и отпускание любой из
кнопок и перемещение курсора мыши. Эти три события обеспечивают интерфейс каждого элемента
управления с мышью. Первые два из них имеют формат:
       (р^) property OnMouseDown: TMouseEvent;
       (Pb) property OnMouseUp: TMouseEvent;
       TMouseEvent = procedure(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer) of object;
       Параметры:
       Sender — элемент-источник сообщения (обычно равен Self);
       Button — идентификатор одной из кнопок;
       TMouseButton = (mbLeft, mbRight, mbMiddle);
       Shift — множество, которое может содержать элементы:
       ssAlt, ssCtrl, ssShift — в зависимости от состояния этих клавиш;
       ssLeft, ssRight, ssMiddle, ssDouble — в зависимости от нажатия кнопок мыши (ssDouble — на-
жать! и правая, и левая кнопки);
       X, Y — координаты нажатия (в системе координат клиентской области получателя).
       При перемещении мыши возникает событие:
       (Pb) property OnMouseMove: TMouseMoveEvent ;
       TMouseMoveEvent = procedure(Sender: TObject; Shift: TShiftState; X, Y: Integer) of object;
       Использование сообщений от мьшш уже встречалось в примерах, приведенных вьппе (напри-
мер, см. разд. "Положение, размеры и выравнивание элементов управления").
       Два события извещают о щелчке и двойном щелчке левой кнопкой мыши над компонентом:
       (pt) property OnClick: TNotifyEvent;
       (Pb) property OnDblClick: TNotifyEvent;
       Отменить генерацию этих событий можно, удалив флаг csClickEvents из слова состояния эле-
мента (ControlStyle). Для некоторых компонентов (например, кнопок) OnClick возникает еще и при на-
жатии определенных клавиш на клавиатуре, а также вследствие вызова метода Click.
       События, связанные с мышью, могут быть получены потомками TControl. В отличие от них, ре-
акцию на события от клавиатуры могут иметь только оконные элементы управления ("могут", т. к. на
уровне TControl и TWinControl эти события только описаны, но не опубликованы). Таким образом, есть
компоненты (в том числе в Палитре компонентов), не имеющие связи с этими событиями из-за ее не-
надобности. Впрочем, их меньшинство, и материал в этом разделе обобщен вполне обоснованно.
       Нажатие и отпускание клавиш клавиатуры могут инициировать следующие события:
       property OnKeyDown: TKeyEvent;


                                               20