property OnLogin:
property OnLogin: TLoginEvent;
TLoginEvent = procedure(Database: TDatabase; LoginParams: TStrings) of object;
Событие OnLogin возникает, когда компонент TDatabase начинает сессию соединения с SQL-сервером.
Наборы данных
(компоненты TDataSet, TBDEDataSet, TDBDataSet)
property OnClick: TNotifyEvent;
TNotify Event = procedure(Sender: TObject) of object;
наступает, если на компоненте TDBCheckBox щелкнуть мышью. Поскольку именно таким образом происходит снятие отметки или отметка компонента, данное событие может использоваться для оценки изменения значения свойства Checked.
property OnEnter: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
наступает при получении компонентом фокуса управления.
property OnExit: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
наступает при утрате компонентом фокуса управления.
property OnClick: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
наступает при одиночном щелчке мышью на компоненте.
property OnDblClick: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
наступает при двойном щелчке мышью на компоненте.
property OnEnter: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
наступает при получении компонентом фокуса управления.
property OnExit: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
наступает при утрате компонентом фокуса управления.
property OnMouseDown: TMouseEvent;
TMouseEvent = procedure (Sender: TObject; Button: TMouseButton; Shift:TShiftState;
X, Y: Integer) of object;
TShiftState = set of(ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);
TMouseButton = (mbLeft, mbRight, mbMiddle);
Наступает, когда пользователь нажимает кнопку мыши, находясь при этом на TBCtr/Grid.
property OnMouseUp: TMouseEvent;
TMouseEvent = procedure (Sender: TObject; Button: TMouseButton; Shift: TShiftState;
X, Y: Integer) of object;
TShiftState = set of(ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);
TMouseButton = (mbLeft, mbRight, mbMiddle);
Наступает, когда пользователь отпускает нажатую ранее кнопку мыши, находясь при этом на TBCtrlGrid.
property OnPaintPanel: TPaintPanelEvent;
TPaintPanelEvent = procedure(DBCtrlGrid: TDBCtrlGrid; Index: Integer) of object;
Наступает для каждой панели TDBCtrlGrid перец ее показом. Обработчик этого события может управлять рисованием панели. Параметр TDBCtrlGrid показывает, какой именно TDBCtrlGrid рисуется в данный момент; параметр Index определяет индекс рисуемой панели.
property OnChange: TNotifyEvent;
TNotify Event = procedure(Sender: TObject) of object;
Наступает при изменении значения в поле.
property OnEnter: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает при получении фокуса ввода компонентом TDBEdit.
property OnExit: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает при утрате фокуса ввода компонентом TDBEdit.
•property OnColEnter: TNotifyEvent;
type TNotifyEvent = procedure(Sender: TObject) of object;
Наступает в момент, когда столбец становится текущим. Наступает после события OnColExit.
• property OnColExit: TNotifyEvent;
type TNotifyEvent = procedure(Sender: TObject) of object;
Наступает в момент, когда столбец теряет фокус ввода. Наступает перед событием OnColEnter.
•property OnColumnMoved: TMovedEvent;
type TMovedEvent = procedure (Sender: TObject; FromIndex, ToIndex: LongInt) of object;
Наступает после перетаскивания столбца TDBGrid на новую позицию в TDBGrid.
•property OnDblClick: TNotifyEvent;
TNotifyEvent = procedure (Sender: TObject) of object;
Наступает после двойного щелчка мышью в тот момент, когда TDBGrid обладает фокусом ввода.
•property OnDrawColumnCeU: TDrawColumnCellEvent;
TDrawColumnCellEvent = procedure (Sender: TObject; const Rect: TRect; DataCol:
Integer; Column: TColumn ; State: TGridDrawState) of object;
TGridDrawState = set of (gdSelected, gdFocused, gdFixed);
Наступает при выводе каждой ячейки TDBGrid. Если значение свойства DefaultDrawing равно True, свойство вызывается уже после графической прорисовки ячейки. Если свойство DefaultDrawing равно False, обработчик данного события служит для хранения кода, который обеспечивает прорисовку ячейки. При этом, если некоторые ячейки должны выводиться стандартным способом (как если бы DefaultDrawing было равно True), из обработчика OnDrawColumnCeU вызывается метод DefaultDrawColumnCell.
•property OnDrawDataCell: TDrawDataCellEvent;
TDrawDataCellEvent = procedure (Sender: TObject; const Rect: TRect; Field:
TField; State: TGridDrawState) of object;
TGridDrawState = set of (gdSelected, gdFocused, gdFixed);
Введен для обратной совместимости с более ранними версиями. Наступает для TDBGrid, у которых свойство State = csDefault. Этот обработчик не нужно использовать в 32-разрядных приложениях.
•property OnEditButtonClick: TNotifyEvent;
type TNotifyEvent = procedure(Sender: TObject) of object;
Наступает при нажатии кнопки (...) в режиме редактирования в ячейке постоянного столбца TDBGrid. Свойство BuffonSty/e данного постоянного столбца должно быть установлено в cbsEllipse.
•property OnEnter: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает, когда TDBGrid получает фокус ввода.
•property OnExit: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает, когда TDBGrid теряет фокус ввода.
•property OnKeyDown: TKey Event;
TKeyEvent = procedure (Sender: TObject; var Key: Word; Shift: TShiftState) of object;
TShiftState = set of(ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);
Наступает, когда пользователь нажимает любую клавишу или комбинацию клавиш на клавиатуре (но еще не отпустил).
•property OnKeyDown: TKeyEvent;
TKeyEvent = procedure (Sender: TObject; var Key: Word; Shift: TShiftState) of object;
TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble):
Наступает, когда пользователь нажимает отдельную клавишу (цифрового и;
алфавитного символа) на клавиатуре, а также комбинацию клавиш, котор;
приводит к формированию кода цифрового или алфавитного символа.
•property OnKeyUp: TKeyEvent;
TKeyEvent = procedure (Sender: TObject; var Key: Word; Shift: TShiftState) i object;
TShiftState = set of(ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);
Наступает, когда пользователь отпускает любую клавишу или комбинаци клавиш на клавиатуре, которую он нажал ранее.
property OnClick: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает при одиночном щелчке мышью на компоненте TDBListBox. property OnDblClick: TNotifyEvent;
TNotifyEvent = procedure( Sender: TObject) of object;
Наступает при двойном щелчке мышью на компоненте TDBListBox. property OnEnter: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает при получении компонентом фокуса ввода. property OnExit: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает при утрате компонентом фокуса ввода.
property OnChange: TNotifyEvent
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает при изменении значения поля, связанного с компонентом TDBRadioGroup.
property OnEnter: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает при получении компонентом фокуса ввода. property OnExit: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает при утрате компонентом фокуса ввода.
property OnProtectChange: TRichEditProtectChange;
TRichEditProtectChange =
procedure (Sender: TObject; StartPos, EndPos: Integer; varAllowChange: Boolean) of object;
Наступает, если пользователь пытается изменить защищенный текст. Параметры StartPos и EndPos содержат границы защищенного текста. Установка в True изменяемого параметра Allay/Change разрешает изменять защищенный текст.
В обработчике данного события можно предусмотреть и такие действия, как снятие атрибута защищенного текста.
property OnResizeRequest: TRichEditResizeEvent;
TRichEditResizeEvent = procedure(Sender: TObject; Rect: TRect) of object;
Наступает при изменении размера шрифта. Параметр Rect содержит сведения о новых границах изменяемого текста (в экранных координатах).
property OnChange: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает при изменении текста.
property OnLowCapacity: TCapacityErrorEvent;
TCapacityErrorEvent = procedure(var Action: TErrorAction) of object;
TErrorAction = (eaFail, eaContinue);
Наступает в случае, когда не хватает памяти в кэше для хранения многомерных данных. Максимальный размер кэша устанавливается в свойстве Capacity.
property OnRefresh: TCubeRefreshEvent;
TCubeRefreshEvent = procedure(DataCube: TCustomDataStore; DimMap:
TCubeDims) of object;
Наступает перед изменением плана куба. Это происходит после изменения параметров куба во время выполнения (см. метод ShowCubeDialog}.
TDecisionDrawCellEvent = procedure (Sender: TObject; Col, Row: Longint;
var Value: string; varAFont: TFont; varAColor: TColor; AState: TGridDrawState;
ADrawState: TDecisionDrawState) of Object;
наступает при прорисовке ячейки в TDecisionGrid. Параметры:
Col - номер столбца;
Row - номер строки;
Value - символьное представление значения, показываемого в ячейке;
A Font -
шрифт, которым показывается значение в ячейке; A Color - цвет фона, которым показывается значение в ячейке;
AState -
состояние ячейки. TGridDrawState = set of (gdSelected, gdFocused, gdFixed); ADrawState -
множество, определяющее вид данных, показываемых в ячейке. Может включать в себя значения: • dsGroupStart - ячейка - первая строка или столбец для измерения. В этом случае в множество ADrawState входят также значения dsRow Value или dsColValue.
• dsRowCaption - в ячейке показывается заголовок строки, то есть имя измерения, значения которого показываются горизонтально.
• dsColCaption - в ячейке показывается заголовок столбца, то есть имя измерения, значения которого показываются вертикально.
• dsSum - в ячейке показывается метка или значение промежуточной суммы. В этом случае в множество ADrawState входят также значения dsRow Value, dsCol Value и dsData.
• dsRow Value - в ячейке показывается одно из значений измерения (метка), а не собственно данные. Название измерения в этом случае расположено в ячейке слева.
• dsColValue - в ячейке показывается одно из значений измерения (метка), а не собственно данные. Название измерения в этом случае расположено в ячейке сверху.
• dsData - в ячейке показываются только данные.
• dsOpenAfter - ячейка имеет знак "+" в правой части, использующийся для раскрытия данных по следующему измерению. В этом случае в множество ADrawState входят также значения dsRowCaption, dsColCaption, dsRow Plus и dsColPlus.
• dsCloseAfter - ячейка имеет знак "-" в правой части, использующийся для сокрытия данных по следующему измерению. В этом случае в множество ADrawState входят также значения dsRowCaption, dsColCaption, dsRowPlus и dsColPlus.
• dsRowIndicator - ячейка используется только для показа знаков "+" или "-", и располагается в самом левом столбце TDecisionGrid.
• dsColIndicator - ячейка используется только для показа знаков "+" или "-", и располагается в самой верхней строке TDecisionGrid.
• dsRowPlus - ячейка, определяемая dsRowIndicator, содержит значение "+". Появляется только совместно с dsRowIndicator.
• dsColPlus - ячейка, определяемая dsColIndicator, содержит значение "+". Появляется только совместно с dsColIndicator.
• dsNone - у ячейки нет никакого предназначения.
property OnDecisionExamineCell: TDecisionExamineCellEvent;
TDecisionExamineCellEvent = procedure (Sender: TObject; ICol, IRow: LongInt;
ISum: Integer; const ValueArray: TSmallIntArray) of Object;
Наступает, когда пользователь, находясь в ячейке данных, нажимает правую кнопку мыши. Параметры:
ICol - номер столбца ячейки;
IRow - номер строки ячейки;
ISum -
номер текущей суммы; ValueArray -
массив координат в координатной сетке TDecisionSource (а не TDecisionGrid). Для получения имени измерения, соответствующего конкретному элементу массива, следует использовать метод GetDimensionNamej. property OnTopLeftChanged: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает при скроллинге данных в сетке TDecisionGrid.
property OnBeginPivot: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает перед изменением данных в кубе, что имеет место при нажатии (отжатии) кнопки, соответствующей измерению куба, в компоненте TDecisionPivot или при раскрытии/свертке данных по измерению в TDecisionGrid путем изменения знака "+" около названия измерения на "-", и наоборот. Событие наступает тогда, когда изменения данных в кубе уже осуществлены, но еще не актуализированы.
property OnEndPivot: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Событие вызывается той же причиной, что и событие OnBeginPivot, однако наступает после актуализации изменения данных в кубе.
property OnLayoutChange: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает после изменения схемы данных в кубе (после события OnBeginPivot, но перед событием OnEndPivot) и только в том случае, когда данные в кубе остаются теми же. При изменении состава измерений, которое сопровождается изменением данных в кубе, наступает событие OnNewDimensions.
property OnNewDimensions: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает после изменения данных в кубе. property OnStateChange: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает после изменения свойств куба (компонент TDecisionCube).
property OnGetText: TFieldGetTextEvent;
TFieldGetTextEvent = procedure(Sender: TField; var Text: string; Display Text:
Boolean) of object;
Наступает при показе содержимого поля в визуальных компонентах, связанных с БД. Например, для ТБД, показываемой в TDBGrid, это событие вызывается для каждой записи.
Используется для форматирования значения поля, чтобы оно показывалось в виде, отличном от того, в котором оно хранится в БД.
property OnSetText: TFieldSetTextEvent;
TFieldSetTextEvent = procedure(Sender: TField; const Text: string) of object;
Наступает всякий раз, когда значение поля изменено. Отличие события от события On Validate в том, что если определен обработчик для OnSetText, новое значение в поле автоматически не заносится и это должен сделать программист.
Иными словами, если в обработчике этого события новое значение программно не заносится в поле, в нем остается старое значение. Для обработчика события On Validate это достигается методом Abort или путем возбуждения исключительной ситуации.
property On Validate: TFieldNotify Event;
TFieldNotifyEvent = procedure(Sender: TField) of object;
Наступает после любого изменения значения поля, произведенного вручную или программно (это относится и к вводу значения в поле при создании новой записи). Служит для контроля правильности значений поля, если на него накладываются какие-либо ограничения. Событие возникает перед выполнением метода Post, физически записывающего измененную запись в ТБД. В случае несоответствия значения поля накладываемым ограничениям выполнение Post (и, следовательно, запоминание в БД записи с неверным полем) можно предотвратить, используя метод Abort или принудительно возбудив исключительную ситуацию (rais'е Exception. Create).
Событие возникает после события OnSetText.
property OnChange: TFieldNotifyEvent;
TFieldNotifyEvent = procedure(Sender: TField) of object;
Наступает в случае изменения значения в поле. Обработчик служит тем же целям, что и обработчик события On Validate. Событие возникает после события On Validate.
Исключения
EDBEditError -
возбуждается в случае, если поле, требующее обязательного ввода в него значения (свойство Required = True), на момент запоминания в таблице БД (на момент выполнения метода Post) содержит пустое значение.
procedure OnEventAlert: TEventAlert;
TEventAlert = procedure ( Sender: TObject; EventName: string;
EventCount: Longint; var CancelAlerts: Boolean);
Возникает при получении клиентским приложением от сервера уведомления о наступлении одного из событий, список которых содержится в свойстве Events. Назначение параметров:
• EventName - содержит имя события, посланного сервером приложению клиента;
• EventCount - содержит список событий (типа, определенного параметром EventName), имевших место на сервере с момента последней передачи клиентскому приложению уведомления о наступлении событий;
CancelAlerts -
изменяемый параметр; значение True (по умолчанию) сообщает серверу о том, что клиентское приложение продолжает интересоваться событиями из списка, указанного всвойстве Events; False сообщает о том, что интерес приложения к уведомлению о событиях иссяк.
property BeforePrint : TQRBeforePrintEvent; -
наступает перед печатью информации, размещенной в области компонента TQRBand.
property AfterPreview : TQRAflerPreview Event;
Наступает после закрытия окна предварительного просмотра отчета. property AfterPrint: TQRAfter Print Event;
Наступает после вывода отчета на печать. property BeforePrint: TQRBeforePrintEvent;
Наступает в момент генерации отчета, до выдачи окна предварительного просмотра отчета и до вывода отчета на печать.
property OnEndPage : procedure (Sender : TObject);
Наступает в момент подготовки к генерации последней страницы отчета. property OnStartPage : procedure (Sender : TObject);
Наступает в момент подготовки к генерации первой страницы отчета.
property OnBeforeAdd: TSeriesOnBeforeAdd;
TSeriesOnBeforeAdd = Function(Sender: TChartSeries): Boolean of object;
Наступает перед добавлением точки в серию. В обработчике данного события может производиться анализ корректности добавляемых в серию точек. Наступает также при соединении серии с источником данных (TTable или TQuery).
property OnAfterAdd: TSeriesOnAfterAdd;
TSeriesOnAfterAdd = Procedure(Sender:TChartSeries; ValueIndex:Longint) of object;
Происходит после добавления точки в серию. property OnClear Values : TSeriesOnClear;
TSeriesOnClear = Procedure(Sender: TChartSeries) of object;
Происходит при очистке серии от точек.
property OnClick : TSeriesClick;
TSeriesClick = procedure(Sender:TChartSeries; Valuelndex: Longint; Button:
TMouseButton; Shift: TShiftState; X, Y: Integer);
Происходит при щелчке мышью на серии.
property OnGetMarkText: TSeriesOnGetMarkText;
TSeriesOnGetMarkText = procedure (Sender: TChartSeries; Valuelndex: Longint;
Var MarkText: String)
Происходит при формировании марки для точки в серии. Обработчик может использоваться для изменения содержимого марки.
property OnStartup: TNotifyEvent;
TNotifyEvent = procedure(Sender: TObject) of object;
Наступает при активизации сессии в тот момент, когда сессия еще не стала активной. Используя обработчик данного события, можно во время выполнения приложения устанавливать значения свойств NetFileDir и PrivateDir
