Uses
...
type
TDBGrid = class(DBGrids.TDBGrid)
protected
function CreateEditor: TInplaceEdit; override;
end;
public
....
end;
THackEdit = class(TCustomEdit);
var
...
implementation
function TDBGrid.CreateEditor: TInplaceEdit;
begin
Result := inherited CreateEditor;
THackEdit(Result).CharCase := ecUpperCase;
end;