19.2. КОМПОНЕНТ TFORM

Свойства формы:

property Active: Boolean-property ActiveControl: TWinControl;

Содержит True, если окно активно (имеет фокус ввода) Определяет дочерний элемент, содержащий фокус ввода

property ActiveMDIChild: TForm;

Определяет дочернее midi oкнo с фокусом ввода

TBorderIcon = (biSystemMenu, biMinimize, biMaximize, biHelp) ; TBorderIcons = set of TBorderIcon; property Borderlcons: TBorderIcons;

Определяет наличие кнопок в заголовке окна: biSystemMenu - имеется кнопка вызова системного меню; biMinimize - имеется кнопка минимизации; biMaximize - имеется кнопка максимизации; biHelp - имеется кнопка вызова справочной службы

property Canvas: TCanvas;

 

Канва для прорисовки фона окна. Это свойство могут использовать не оконные дочерние элемента

property ClientHeight: Integer;

Высота клиентской части окна

property ClientRect: TRect;

Прямоугольник клиентской части окна

property ClientWidth: Integer;

Ширина клиентской части окна

property HelpFile: Strings;

 

Каждая форма может иметь индивидуальный Help- файл, имя которого содержит это свойство. Если имя не указано, используется Hdp-файп приложения

property Icon: TIcon;

Содержит пиктограмму окна. Для главной формы это свойство определяет также пиктограмму программы

property KeyPreview: Boolean;

 

Если имеет значение True, форма получает события от клавиатуры, перед тем как они поступят в элемент с фокусом ввода

property MDIChildCount: Integer;

 

В рамочном MDI-окне указывает количество связанных с ним дочерних midi-oкнo

property MDIChildren[I: Integer]:

Tforms;

В рамочном MDI-окне открывает доступ к I-му дочернему окну

property Menu: TMainMenu;

Содержит главное меню окна

TModalResuit = Low(Integer)..High(Integer) ; property ModalResult: TModalResuit;

Для модального окна содержит результат диалога

property PixelsPerInch: Integer;

 

Определяет разрешающую способность окна в пикселях на один линейный дюйм для этапа конструирования формы

TPosition = (poDesigned, poDe-

fault, poDefaultPosOnly, poDe-

faultSizeOnly, poScreenCenter) ;

property Position: TPosition;

 

Определяет положение и размеры окна в момент его появления на экране: poDesigned - такие же, как на этапе конструирования окна; poDefault - положение и размеры определяет Windows; poDefaultposOnly - положение, как на этапе конструирования, размеры определяет Windows; л poDefaultSizeOnly - размеры, как на этапе конструирования, положение определяет Windows; poScreenCenter - в центре экрана с размерами, как на этапе конструирования

TPrintScale = (poNone, poProportional, poPrintToFit);

property PrintScale: TPrintScale;

 

 

Определяет масштабирование окна при его печати на принтере: poNone - нет масштабирования; каждый пиксель окна воспроизводится одной точкой на бумаге; рорrороrtional - форма масштабируется так, чтобы ее образ на бумаге был максимально похож на ее изображение на экране; poPrintToFit- форма печатается с такими же пропорциями, как на экране, но с размерами, за полняющими лист бумаги

property Scaled: Boolean;

 

 

Разрешает/запрещает масштабировать форму, если значение ее свойства PixelPerinch отличается от текущего разрешения экрана

TileMode = (tbHorizonial, tbVertical);

property TileMode: TTileMode;

Определяет стиль расположения дочерних окон MDI-приложения при их упорядочении мозаикой

property WindowMenu: TMenuItem;

Определяет пункт главного меню рамочного MDI-окна, к которому добавляются опции дочернего окна

TWindowState = (wsNormal, wsMinimized, wsMaximized) ;

Определяет состояние окна в момент его

появления на экране: wsNormal - бычное

property WindowState: TWindow

State;

 

 

Окно; wsMinimized - минимизировано до

пиктограммы; wsMaximized - распахнуто на

весь экран

Примечание

Если в множестве свойства BоrderIcon убрать кнопки biMinimize: biMaximize, а в свойство WindowState поместить значение wsMaximized, форма займет все пространство экрана, включая нижнюю панель задач.

Методы формы:

procedure Arrangelcons;

 

Упорядочивает пиктограммы закрытых дочерних окон MDI-приложения

procedure Cascade;

Располагает дочерние MDI-окна каскадом

procedure Close;

 

Закрывает окно. Для главного окна завершает работу программы

function CloseQuery: Boolean

Возвращает True, если можно закрыть окно

procedure DefocusControl(Control: TWinControl;

Removing: Boolean);

Отбирает фокус ввода у дочернего элемента Control. Если при этом Removing=True, фокус ввода получает форма

procedure FocusControl(Control: TWinControl);

Передает фокус ввода дочернему элементу Control

function GetFormImage: TBitmap;

Содержит текущее изображение окна формы

procedure Next;

Делает активным следующее mdi-okнo

procedure Previous;

Делает активным предыдущее mdi-okнo

procedure Tile;

Располагает дочерние MDI-окна мозаикой

procedure Print;

Печатает окно на принтере

procedure Release;

 

 

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

procedure SendCancel-

Mode(Sender: TControl);

 

Восстанавливает начальное состояние окна: освобождает мышь, прекращает прокрутку и закрывает меню

procedure SetFocus;

Передает фокус ввода форме. Форма при этом должна быть активной и видимой

procedure Show;

Показывает форму в немодальном режиме

function ShowModal: Integer;

Показывает форму в модальном режиме и возвращает результат диалога

События формы:

property OnActivate: TNoti

fyEvent;

Возникает в момент активизации окна (при полученииею фокуса ввода)

TCloseAction = (caNone, caHide,

caFree, caMinimize);

TCloseEvent = procedure(Sender:

TObject; var Action: TCloseAction) of object;

property OnClose: TCloseEvent;

Возникает перед закрытием окна. Параметр Action уточняет необходимые действия:

саNоnе - не закрывать окно; caHide - спрятать окно; caFree - уничтожить окно;

caMimimize - минимизировать окно

TCloseQueryEvent = proce

dure(Sender: TObject; var CanClose: Boolean) of object;

property OnCloseQuery: TCloseQueryEvent;

Возникает перед закрытием окна. В параметре canclose обработчик сообщает о возможности закрытия окна

property OnCreate: TNotifyEvent;

 

Возникает при создании окна, но до его появления на экране

property OnDeactivate: TNoti

fyEvent;

Возникает при передаче активности другому окну той же программы

property OnDestroy: TNotifyEvent;

Возникает перед разрушением окна

THelpEvent = function (Command:

Word; Data: Longint; var CallHelp: Boolean): Boolean of object;

property OnHelp: THelpEvent;

Возникает при обращении к справочной службе. В параметре callHelp обработчик сообщает о возможности получения помощи

property OnHide: TNotifyEvent;

Возникает перед исчезновением окна

property OnPaint: TNotifyEvent;

Возникает при необходимости прорисовки окна

property OnResize: TNotifyEvent;

Возникает при изменении размеров окна

property OnShow: TNotifyEvent;

Возникает при появлении окна на экране