Class TADBGrid (unit adbgrid)

Inherits from

TDBGrid

new DBGrid class

Constructors


constructor Create(AOwner: TComponent);

constructor/destructor methods


Functions

procedure DoMouseDown(var Message: TWMMouse; Button: TMouseButton; Shift: TShiftState);

private methods

procedure MouseToCell(X, Y: Integer; var ACol, ARow: Longint);

MouseToCell method as per TStringGrid

public methods


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

override the standard DBGrid mouse event handling

protected methods


procedure MouseMove(Shift: TShiftState; X, Y: Integer);

if down on a column header (row 0) then start watching for a "click"

procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

finish "click"

procedure WMLButtonDown(var Message: TWMLButtonDown);

add new win message handlers for mouse clicks

WIN message handlers


procedure WMMButtonDown(var Message: TWMMButtonDown);


procedure WMRButtonDown(var Message: TWMRButtonDown);


Properties

property Align :

surface all current DBGrid properties & events

property BorderStyle :


property Color :


property Columns :


property Ctl3D :


property DataSource :


property DefaultDrawing :


property DragCursor :


property DragMode :


property Enabled :


property FixedColor :


property Font :


property Options :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property TitleFont :


property Visible :


property Canvas :


property SelectedRows :


Events

event OnColEnter :


event OnColExit :


event OnColumnClick : TColumnClickEvent


event OnColumnMoved :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnDrawColumnCell :

obsolete

event OnDrawDataCell :


event OnEditButtonClick :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :

publish new events

event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

FButton : TMouseButton;


FColumnClick : integer;


FOnColumnClick : TColumnClickEvent;


FShift : TShiftState;



Constructors


constructor Create(AOwner: TComponent);

constructor/destructor methods


Functions


procedure DoMouseDown(var Message: TWMMouse; Button: TMouseButton; Shift: TShiftState);

private methods


procedure MouseToCell(X, Y: Integer; var ACol, ARow: Longint);

MouseToCell method as per TStringGrid

public methods


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

override the standard DBGrid mouse event handling

protected methods


procedure MouseMove(Shift: TShiftState; X, Y: Integer);

if down on a column header (row 0) then start watching for a "click"


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

finish "click"


procedure WMLButtonDown(var Message: TWMLButtonDown);

add new win message handlers for mouse clicks

WIN message handlers


procedure WMMButtonDown(var Message: TWMMButtonDown);


procedure WMRButtonDown(var Message: TWMRButtonDown);


Properties


property Align :

surface all current DBGrid properties & events


property BorderStyle :


property Color :


property Columns :


property Ctl3D :


property DataSource :


property DefaultDrawing :


property DragCursor :


property DragMode :


property Enabled :


property FixedColor :


property Font :


property Options :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property TitleFont :


property Visible :


property Canvas :


property SelectedRows :


Events


event OnColEnter :


event OnColExit :


event OnColumnClick : TColumnClickEvent


event OnColumnMoved :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnDrawColumnCell :

obsolete


event OnDrawDataCell :


event OnEditButtonClick :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :

publish new events


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


FButton : TMouseButton;


FColumnClick : integer;


FOnColumnClick : TColumnClickEvent;


FShift : TShiftState;