Source position: TplDBControlGridUnit.pas line 100
type TDCGKeyDownHandler = procedure(
Sender: TObject;
var Key: Word;
Shift: TShiftState;
var Done: Boolean
) of object;