StingGrid控件每条记录有双击事件吗？

Question

如题，我做的程序需要点击StingGrid控件里的每条记录，可是没有找到相关的事件，请高手指教！谢谢

Answer 1

请教zsy146(zsy），onadvstringgirdDblClickCell事件是在stringgird的Events里吗，我怎么没看到呢？

Answer 2

andyzhou1101(恋上Lcy...Happying)
我是说每条记录的事件，换句话就是每行的事件

Answer 3

procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
  ACol,
  ARow: Integer;
  APoint: TPoint;
begin
  exit;
  With StringGrid1 do
  begin
    APoint := ScreenToClient(Mouse.CursorPos);
    MouseToCell(APoint.X, APoint.Y, ACol, ARow);    if (ACol >= 0)And(ARow >=0) then ShowMessage(Cells[ACol, ARow]);
  end;
end;
或者
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  ShowMessage(IntToStr(ARow));
end;