-------StringGrid的鼠标点击问题--------

Question

我想实现这样的程序：
我首先在StringGrid上加了一个PopupMenu，其中有个菜单:"鼠标点击在Cell[X,Y]上"（相应的代码为显示鼠标点击所在的cell[X,Y]中的X和Y）。
然后在StringGrid上点击右键时，能够获得鼠标点击所在的cell[X,Y]中的X和Y，并在菜单"鼠标点击在Cell[X,Y]上"显示出来。
不知道应该怎么实现？请帮忙，谢谢！

Answer 1

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  col,row: integer;
begin
  if (Button = mbRight) then
  begin
    StringGrid1.MouseToCell(X,Y,col,row);
    StringGrid1.Cells[col, row] := 'col: '+IntToStr(col) + '/row: '+IntToStr(row);
  end;
end;