|
|
|
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; |
Возникает при появлении окна на экране |
|
|
|