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




Начало  Назад  Вперед



Книжный магазин