A ver si esto te orienta
Código Delphi
[-]
type
THackedStringGrid = class(TStringGrid)
end;
TForm3 = class(TForm)
StringGrid1: TStringGrid;
...
Código Delphi
[-]
procedure TForm3.Button1Click(Sender: TObject);
begin
with THackedStringGrid(StringGrid1) do
if (InplaceEditor <> NIL) then
ShowMessage(InplaceEditor.SelText);
end;
Saludos