Delphi 3 и создание приложений баз данных


         

когда пользователь нажимает кнопку мыши,


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 определяет индекс рисуемой панели.

Содержание  Назад  Вперед