StringGrid - SelText

Jak w temacie:

//SG:TStringGrid;
//SG.Options:=SG.Options+[goEditing,goAlwaysShowEditor]

function GetStringGridSelText(SG:TWinControl;aCol,aRow:Integer):string;
var
  Wnd,SelStart,SelEnd:Integer;
begin
  Wnd:=GetWindow(SG.Handle,GW_CHILD);
  SendMessage(Wnd,EM_GETSEL,Integer(@SelStart),Integer(@SelEnd));
  Result:=Copy((SG as TStringGrid).Cells[aCol,ARow],SelStart+1,SelEnd-SelStart);
end;