Es más Livey, al ser GetEditText un método de la clase TCustomGrid, podés redefinir el método para cualquiera de sus descendientes...
Así podés hacer:
Código Delphi
[-]
uses DBGrids;
type
TDBGrid = class(DBGrids.TDBGrid)
public
function GetEditText(ACol,ARow: Longint):string; override;
end;
TForm1 = class(TForm)
DBGrid1: TDBGrid;
public
private
end;
....
implementation
function TDBGrid1.GetEditText(ACol, ARow: Integer): string;
begin
Result := Inherited GetEditText(ACol,ARow);
end;
con el mismo resultado.
Saludos.
