向大神求教，关于Delphi StringGrid解决方案

向大神求教，关于Delphi StringGrid
遇到一个问题，在StringGrid中连接了一个PopupMenu，希望得到的效果是，通过右击StringGrid中的某一行，弹出PopupMenu，通过PopupMenu对所选择的行进行后续的处理，问题是如何获得右击后所选择的行信息？跪求大神帮忙~


------解决方案--------------------
stringgrid1.col//表示选列
stringgrid1.row//表示选行
------解决方案--------------------
{当前单元}

procedure TForm1.StringGrid1Click(Sender: TObject);

var

  c,r: Integer;

begin

  c := StringGrid1.Col; {当前列}

  r := StringGrid1.Row; {当前行}

  StringGrid1.Cells[c,r] := Format('列:%d;行:%d', [c,r]);

end;

------解决方案--------------------
把这个放到你需要的事件里去~~