Класс TControl - это следующий шаг в недра библиотеки VCL. Запомните главное: абстрактный класс TControl порождает все визуальные компоненты Delphi. А визуальный компонент - это элемент управления (кнопка, полоса прокрутки, поле ввода), обязанный реагировать на внешние воздействия. Вклад класса Tcontrol в библиотеку визуальных компонентов просто грандиозен. При его изучении мы познакомимся с первыми обработчиками событий (events). Визуальные компоненты наследуют от TControl свойства, методы и события, связанные с установкой местоположения компонента на форме, с видом курсора, прорисовкой, всплывающей подсказкой, с откликами на события мыши и операциями drag-and-drop (перетащить и отпустить) и drag-and-dock (буксировка).

Размеры и размещение элемента управления

Каждый элемент управления, располагаемый программистом на рабочей форме или на поверхности другого контейнера, обладает рядом свойств, характеризующих местоположение, размер и поведение элемента при изменении геометрических параметров контейнера. В момент переноса компонента на поверхность контейнера в его свойство:

property Parent: TWinControl;

записывается имя контейнера. В качестве контейнера может выступать потомок класса TWinControl; обычно это форма или панель.

Прежде чем говорить о размерах и местоположении объекта, разберемся с единицами измерений и системой координат. В отличие от географов, оперирующих километрами, и инженеров, в качестве единиц измерений отдающих предпочтение миллиметрам, программисты для измерения расстояний используют пиксел. Это размер минимальной точки экрана, в первую очередь зависящий от физических характеристик монитора и выбранного разрешения.

По умолчанию за начальную точку отсчета с координатами X=0, Y=0 принимается левый верхний угол клиентской части формы (рис. 6.2). Местопо-

ложение и размеры элемента управления, размещаемого на форме, хранятся в свойстве:

property BoundsRect: TRect;

где:

TRect = recordcase Integer of 0: (Left, Top, Right, Bottom: Integer); 1: (TopLeft, BottomRight: TPoint);end; type TPoint = record

X: Longint;

Y: Longint; end;

Более удобный доступ к размерам визуального компонента по вертикали и горизонтали соответственно обеспечивают свойства:

property Height: Integer; property Width: Integer;

Расстояние по горизонтали от левого края формы до верхнего левого угла компонента устанавливается в свойстве:

property Left: Integer;

а расстояние от верхнего среза клиентской части формы до левого верхнего угла компонента в свойстве:

property Top: Integer.