Class TADBGrid (unit adbgrid) |
Inherits from
TDBGrid
new DBGrid class
constructor Create(AOwner: TComponent);
- constructor/destructor methods
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);
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 :
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 :
FButton : TMouseButton;
FColumnClick : integer;
FOnColumnClick : TColumnClickEvent;
FShift : TShiftState;
constructor Create(AOwner: TComponent);
constructor/destructor methods
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);
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 :
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 :
FButton : TMouseButton;
FColumnClick : integer;
FOnColumnClick : TColumnClickEvent;
FShift : TShiftState;