property Active: Boolean;

Содержит True, если любое окно программы имеет фокус ввода

property BiDiMode: TBiDiMode;

Определяет свойство bidiMode (см. п. 17.12) для программы в целом

property CurrentHelpFile: Strings;

Определяет имя текущего справочного файла

property ExeName: Strings;

Содержит полное имя (с маршрутом доступа) исполняемого файла программы

property HelpFile: String;

Определяет имя файла справочной службы

property Hint: String;

Содержит длинную часть оперативной подсказки

property HintColor: TColor;

Определяет цвет фона ярлычка оперативной подсказки

property HintHidePause: Integers;

Определяет паузу (в миллисекундах) от момента появления ярлычка до его исчезновения

property HintPause: Integer;

Определяет паузу (в миллисекундах) от момента остановки указателя мыши до появления ярлычка

property HintShortPause: Integers;

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

property Icon: TIcon;

Определяет пиктограмму программы

property MainForm: TForm;

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

property ShowHint: Boolean;

Разрешает/запрещает показ ярлычков для всех окон программы

property ShowMainForm: Boolean;

Разрешает/запрещает показ главного окна в момент старта программы

property Terminated: Boolean;

Содержит True, если программа должна

прекратить работу. Используется в приложениях с интенсивным счетом для контроля необходимости прекращения дальнейшей работы

property Title: String;

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

property UpdateFormatSettings:

Boolean;

Если содержит True, программа автоматически будет учитывать новые форматные установки Windows (например, новый разделитель целой и дробной частей числа) при их изменении в момент работы программы.

property UpdateMetricSet;Boolean;

Если содержит True, программа автоматически будет учитывать новые метрические установки Windows (например, новый системный шрифт) при их изменении в момент работы программы

procedure BringToFront;

Помещает окно, которое было активным в последний раз, поверх остальных окон

procedure HandleException(Sender: TObject) ;

Осуществляет умалчиваемую обработку исключительных ситуаций. Используется при разработке новых компонентов

function HelpCommand(Command: Word; Data: Longint): Boolean;

Посылает справочной службе команду Command и параметр Data

procedure HandleMessage;

Приостанавливает работу программы до тех пор, пока не будут обработаны все сообщения, после чего создает событие Onidle

procedure CreateForm(FormClass: TFormClass; var Reference) ;

Создает объект-окно: вызывает конструктор класса TFormClass и связывает его значение с переменной Reference

procedure CancelHint;

Запрещает показ ярлычков оперативной подсказки

function HelpContext(Context: THelpContext): Boolean;

Вызывает раздел context справочной службы и возвращает True, если такой раздел существует

function HelpJump(const JumpID:

String): Boolean;

Вызывает раздел справочной службы по его имени JumpID и возвращает True, если такой раздел существует

procedure Hide Hint;

Убирает текущий ярлычок оперативной подсказки

TWindowHook = function(var Mes

sage: TMessage): Boolean of object procedure HookMainWindow(Hook:

TWindowHook);

Регистрирует функцию для перехвата сообщений Windows

function MessageBox(Text, Cap

tion: PChar; Flags: Longint): Integer;

Создает и показывает диалоговое окно с

текстом и кнопками: Text - сообщение в окне; Caption - заголовок окна. Назначение Flags и возвращаемое значение см. ниже

procedure Minimize;

Минимизирует программу до пиктограммы

procedure NormalizeTopMosts;

Приостанавливает действие стиля fsTopMost для всех окон программы

procedure NormalizeAllTopMosts;

Распространяет действие NormalizeTop

Mosts на главное окно программы

procedure ProcessMessages;

То же, что HandleMessage, но не создает

событие OnIdle

procedure Restore;

Восстанавливает первоначальные размеры всех окон программы до ее минимизации

procedure RestoreTopMosts;

Восстанавливает действие стиля fsTopMost для всех окон программы

procedure Run;

Запускает цикл получения и обработки Windows-сообщений

procedure ShowException(EiException) ;

Реализует умалчиваемую обработку исключительных ситуаций

procedure Terminate;

Завершает работу программы

procedure UnhookMainWindow(Hook:TWindowHook);

Удаляет перехватчик сообщений, ранее установленный методом ookMainWindow.

Параметр Hook - имя той же функции перехвата, что и при обращении к HookMainWindow

mbA bort Retry Ignore

В окно вставляются кнопки Abort, Retry, Ignore

mbApplModal

Пользователь должен закрыть это окно перед тем, как продолжить работу с окном, его породившим; однако он может переходить в другие окна и работать с ними. Этот признак берется по умолчанию, если не определены ни mbSystemModal, ни inbTaskModal

mbDefButtonl

Кнопкой по умолчанию является кнопка 1

mbDefButton2

Кнопкой по умолчанию является кнопка 2

mbDefButton3

Кнопкой по умолчанию является кнопка 3

mbDefButton4

Кнопкой по умолчанию является кнопка 4

mbHelp

Вставляется кнопка Help

mbIconAftensk

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

mblconExclcimation

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

mbIconHand

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

mblconlnformation

Стоп То же,что и mbIconAsterisk

mb IconQuestion

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

mbIconStop

To же, ЧТО И mbIconHand

mb0k

В окно вставляется кнопка Ok

mbOkCancel

В окно вставляются кнопки Ok и Cancel

mbRetry Cancel

В окно вставляются кнопки Retry и Cancel

mbSy stem Modal

Все программы приостанавливают свою работу, пока пользователь не закроет это окно

mbTaskModal

Приостанавливается работа во всех окнах данной программы до тех пор, пока пользователь не закроет это окно

mbYesNo mb Yes No Cancel

В окно вставляются кнопки Yes, ыо В окно вставляются кнопки Yes, No, Cancel

idAbort idCancel

idlgnore idOk

Была нажата кнопка Abort Была нажата кнопка cancel

Была нажата кнопка ignore Была нажата кнопка ok

Была нажата кнопка No Была нажата кнопка Retry Была нажата кнопка Yes

property OnActivate: TNotifyEvent;

Возникает, когда программа получает фокус ввода

property OnDeactivate: TNotifyEvent;

Возникает, когда программа теряет фокус ввода

TExceptionEvent = procedure

(Sender: TObject; E: Exception)

of object; property OnException: TException Event;

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

THelpEvent = function (Command:

Word; Data: Longint; var CallHelp: Boolean): Boolean of ob ject;

property OnHeip: THelpEvent;

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

property OnHint: TNotifyEvent;

Возникает при необходимости отобразить длинную часть оперативной подсказки

TIdleEvent = procedure (Sender:

TObject; var Done: Boolean) of object; property Onldle: TIdleEvent;

Обработчик этого события реализует фоновую работу (см. ниже пояснения)

TMessageEvent = procedure (var

Msg: TMsg; var Handled: Boolean)

of object;

property OnMessage: TMessageEvent;

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

property OnMinimize: TNotifyEvent;

Возникает при минимизации программы

property OnRestore: TNotifyEvent;

Возникает при восстановлении программой первоначальных размеров после ее минимизации

property OnShowHint: TShowHintE-

vent;

Возникает при необходимости отобразить окно с ярлычком оперативной подсказки

property ActiveControl: TWinCon-

trol;

Содержит ссылку на элемент с фокусом ввода

property ActiveForm: TForm;

Содержит ссылку на окно с фокусом ввода

property Cursor: TCursor;

Определяет текущий указатель мыши для окон программы

property Cursors[Index: Integer]:

HCursor;

Открывает доступ к одному из зарегистрированных указателей мыши по его индексу

property CustomFormCount: Integer;

Содержит количество окон или страниц свойств программы, открытых в данный момент

property CustomForms[Index: Integer] : TCustomForm;

Содержит список объектов класса TCustom

Form - открытых в данный момент окон

программы

property DataModuleCount: Inte ger;

Содержит количество модулей данных в программе

property DataModules[Index: Integer] : TDataModule;

Содержит список модулей данных - объектов класса TdataModule

property Fonts: TStrings;

Содержит список имен всех экранных шрифтов

property FormCount: Integer;

Содержит общее количество показываемых на экране окон программы

property Forms[Index: Integer]:

TForm;

Открывает доступ к окну программы по его индексу

property Height; Integer;

Содержит высоту экрана в пикселях

property IconFont: TFont;

Определяет шрифт для надписи ниже пиктограммы минимизированной программы

property PixelsPerInch: Integer;

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

property Width: Integer;

С объектом screen связаны два

Содержит ширину экрана в пикселях

события:

property OnActiveControlChange:

TNotifyEvent;

Возникает при переходе фокуса ввода от одного элемента к другому

property OnActiveFormChange: TNotifyEvent;

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

property Aborted: Boolean;

Содержит True, если выполнение предыдущего задания на печать было досрочно прекращено

property Canvas: TCanvas;

Канва принтера - основной инструмент создания изображения на листе бумаги

type TPrinterCapability =

(pcCopies, pcOrientation, pcCollation) ; TPrinterCapabilities = set of

TPrinterCapability;

property Capabilities: TPrinter

Capabilities;

Содержит возможности текущей настройки драйвера принтера: pcCopies - может печататься несколько копий документа; pcOrien tation -драйвер поддерживает разную ориентацию листа бумаги; pcCollation -документ

печатается в подбор по экземплярам

property Copies: Integer;

Указывает требуемое количество копий документа

property Fonts: TStrings;

Содержит список всех доступных принтеру шрифтов

TPrinterOrientation =

(poPortrait, poLandscape) ;

property Orientation: TPrinterOrientation;

Определяет ориентацию листа бумаги:

poPortrait вертикальная; poLandscape -

горизонтальная

property PageHeight: Integer;

Содержит высоту листа бумаги в пикселях принтера

property PageNumber: Integers;

Содержит номер печатаемой страницы документа (начинается с 1)

property PageWidth: Integer;

Содержит ширину листа бумаги в пикселях принтера

property Printerlndex: Integer;

Содержит индекс умалчиваемого принтера в списке Printers

property Printers: TStrings;

Содержит список всех доступных принтеров

property Printing: Boolean;

Содержит True, если принтер занят печатью документа

property Title: String;

Содержит имя задания на печать

Методы объекта printer:

procedure Abort;

Досрочно прекращает печать документа

procedure BeginDoc;

Начинает печать документа

procedure EndDoc;

Завершает печать документа

procedure NewPage;

Начинает печать новой страницы документа

property AsTex-t: Strings;

Рассматривает содержимое буфера как текстовую строку длиной до 255 символов. Для обмена с буфером более длинными строками следует использовать его методы SetTextBuf и GetTextBuf

property FormatCount: Integers;

Возвращает общее количество форматов хранящихся в буфере данных

property Formats[Index: Integer]: Word;

Открывает доступ к данным по формату, указанному индексом Index

Методы объекта clipboard:

procedure Assign(Source: TPersistent) ;

Копирут в буфер изображение

procedure Clear; procedure Closes;

Очищает буфер Уменьшает на 1 счетчик блокировок буфера и закрывает его, если счетчик содержит 0

function GetTextBuf(Buffer: PChar; BufSize: Integer): Integers;

Копирует из clipboard не более BufSize символов в текстовый буфер Buffer и возвращает действительное количество скопированных символов

procedure HasFormat(Format: Word): Boolean; procedure Open;

Возвращает True, если буфер содержит данные в формате Format Увеличивает на 1 счетчик блокировок буфера и открывает его, если он еще не был открыт

procedure SetTextBuf(Buffer:

PChar);

Помещает в clipboard содержимое текстового буфера Buffer

constructor Create(const FileNameString) ;

Создает объект-файл с именем FileName. Это имя автоматически переносится в свойство FileName. Если физический файл существовал, он открывается, если нет создается

procedure DeleteKey(const Section,

Ident: String) ;

Уничтожает значение параметра Ident в секции Section. Если указана несуществующая секция или имя несуществующего параметра, метод создаст секцию и/или установит в ней параметр с пустым значением

procedure EraseSection(const Section: String) ;

Удаляет секцию со всеми ее параметрами.

Если секции не существует, возникает исключительная ситуация

function ReadBool (const Section,

Ident:.String; Default: Boolean): Boolean;

Возвращает значение логического параметра Ident в секции section. Возвращает Default, если не существует указанная

секция, или в ней нет нужного параметра, или, наконец, параметр имеет не логическое значение

function Readlnteger(const Section, Ident: String; Default:Longint): Longint;

Возвращает значение целого параметра Ident в секции Section, Возвращает Default, если не существует указанная секция, или в ней нет нужного параметра, или, наконец, параметр имеет не целое значение

procedure ReadSection (const Section: String; Strings: TStrings);

Помещает в список Strings имена всех параметров из секции Section

procedure ReadSections (Strings:

TStrings);

Помещает в список Strings имена всех

секций файла

procedure ReadSectionValues(const Section: String; Strings: TStrings) ;

Помещает в список strings имена всех

значений из секции Section

function ReadString(const Section,

Ident, Default: String): String;

Возвращает значение строкового параметра Ident в секции section. Возвращает Default, если не существует указанная секция, или в ней нет нужного параметра,

или, наконец, параметр не имеет значения

procedure WriteBool(const Section,

Ident: String; Value: Boolean);

Записывает в параметр Ident секции section логическое значение value.

procedure Writelnteger(const Sec

tion, Ident: String; Value: Longint) ;

Записывает в параметр Ident секции Section целое значение Value

procedure WriteString(const Section, Ident, Value: String);

Записывает в параметр Ident секции Section строковое значение value

procedure CioseKey;

Записывает информацию в ключ и закрывает его

constructor Create;

Создает объект класса TRegistry. Устанавливает в RootKey значение hkeycurrent - user и в LazyWrite значение True

function CreateKey(const Key:

String): Boolean;

Создает ключ с именем Key. Если имя начинается символом “\”, ключ является подключом корневого ключа, в противном случае - подключом текущего ключа

function DeleteKey(const Key:

String): Boolean;

Удаляет ключ Key и возвращает True, если операция прошла успешно

function DeleteValue(const Name:

String): Boolean;

В текущем узле удаляет значение параметра с именем Name

destructor Destroy;

Уничтожает объект TRegistry

TRegDataType == (rdUnknown,

rdString, rdExpandString, rdlnteger, rdBinary) ;

TRegDataInfo = record

RegData: TRegDataType;

DataSize: Integers-

end;

Возвращает в параметре value значение, определяющее тип данных для параметра сименем valueName текущего ключа: rdunknown - неизвестный тип; rdString - стро

ковый тип;rdExpandString - значением

является строка, описывающая переменную окружения Windows, например “%РАТН%”;

function GetDataInfo(const ValueName: String; var Value: TRegDataInfo) : Boolean;

rdlnteger - целочисленный тип; rdBinary - двоичный тип (набор битов)

function GetDataSize(const Valu-

eName: String): Integer;

Возвращает длину значения параметра с

именем valueName в текущем узле

TRegDataType = (rdUnknown, rdString, rdExpandString, rdlnteger, rdBinary) ;

function GetDataType(const ValueName: String): TRegDataType;

Возвращает значение, определяющее тип данных для параметра с именем ValueMame текущего ключа (см. метод GetDataInfo)

TRegKeyInfo = record

NumSubKeys: Integer;

MaxSubKeyLen: Integer;

NumValues: Integer;

MaxValueLen: Integer;

MaxDataLen: Integer;

FileTime: TFileTime;

end;

function GetKeyInfo(var Value:

TRegKeyInfo): Boolean;

Возвращает в параметре Value информацию о текущем узле: - NumSubKeys количество дочерних узлов;MaxSubKeyLen - максимальная длина имени дочернего узла; NumValues - количество параметров; Мах-valueben - максимальная длина имени параметра; MaxDataLen - максимальна длина параметра; FileTime - время последнего обновления ключа

procedure GetKeyNames(Strings:TStrings) ;

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

всех дочерних ключей

procedure GetValueNames(Strings:TStrings) ;

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

всех параметров

function HasSubKeys: Boolean;

Возвращает True, если ключ имеет дочерние ключи

function KeyExists(const Key:

String): Boolean;

Возвращает True, если существует ключ с именем Key

function LoadKey(const Key, File-

Name: String): Boolean;

Создает ключ с именем Key как дочерний ключ корневого ключа и загружает из файла FileName его содержимое (параметры и все подключи)

procedure MoveKey(const OldName,

NewName: String; Delete: Boolean) ;

Копирует или перемещает ключ OldName в ключ NewName: Delete -содержит True для перемещения

function OpenKey(const Key:

String; CanCreate: Boolean): Boolean;

Открывает существующий или создает и открывает новый ключ с именем Key и воз вращает True, если операция прошла успешно. CanCreate разрешает/запрещает создание ключа, если он не существует

function ReadBinaryData(const

Name: String; var Buffer; BufSize: Integer): Integer;

Копирует не более Bufsize байт в переменную Buffer из параметра с именем Name.

Возвращает количество действительно скопированных байтов

function ReadXXXX(const Name:

String): YYYY;

Возвращает значение параметра типа yyyy с именем Name

function RegistryConnect(const

UNCName: String): Boolean-

Разрешает удаленному компьютеру ONCName доступ к системному реестру вашего компьютера

procedure RenameValue(const Old Name, NewName: Strings;

Переименовывает параметр OldName

function ReplaceKey(const Key

FileName, BackUpFileName:

String): Boolean;

Заменяет содержимое ключа Key содержимым файла FileName.BackUpFileName -имя файла, в котором будет сохраняться старое содержимое ключа

function RestoreKey(const Key,

FileName: String): Boolean;

Считывает содержимое ключа Key из файла FileName

function SaveKey(const Key, File

Name: String): Boolean;

Сохраняет содержимое ключа Key в файле FileName

function ValueExists(const Name:

String): Boolean;

Возвращает True, если параметр с именем Name имеет значение

procedure WriteBinaryData(const

Name: String; var Buffer; Buf-

Size: Integer) ;

Копирует не более Bufsize байтов из буфера Buffer в параметр с именем Name

procedure WriteXXXX(const Name:

String; Value: YYYY);

Записывает в параметр с именем Name данные Типа YYYY

constructor Create(const FileName : String) ;

Создает объект класса TRegIniFile и связывает его с ключом FileName

procedure DeleteKey(const Section, Ident: String);

Удаляет параметр с именем Ident в ключе Section

procedure EraseSection(const Section : String) ;

Удаляет ключ section со всеми его параметрами и под ключами

function ReadBool(const Section,

Ident: String; Default: Boolean):

Boolean;

Возвращает значение логического параметра с именем Ident в ключе section

function Readlnteger(const Sec

tion, Ident: String; Default:

Longint): Longint;

Возвращает значение целочисленного параметра с именем Ident в ключе Section

procedure ReadSection(const Section: String; Strings: TString);

Возвращает в Strings имена всех параметров ключа Section

procedure ReadSections(Strings:TStrings);

Возвращает в Strings имена всех ключей,

связанных с текущим ключом

procedure ReadSectionValues(const

Section: String; Strings: TStrings) ;

Возвращает в Strings значения всех пара

метров ключа section

function ReadString(const Sec

tion, Ident, Default: String):String;

Возвращает значение строкового параметра с именем Ident в ключе section

procedure WriteBool(const Sec

tion, Ident: String; Value: Boolean) ;

Записывает логическое значение value в

параметр Ident ключа section

procedure Writelnteger(const Sec

tion, Ident: String; Value: Longint) ;

Записывает целочисленное значение Value в параметр Ident ключа Section

procedure WriteString(const Sec

tion, Ident, Value: String);

Записывает строковое значение value в

параметр Ident ключа Section