Código Delphi [-] procedure TForm1.DBGrid1CellClick(Column: TColumn); begin showmessage(IntToSTr(Query1.RecNo)); end;
procedure TForm1.DBGrid1CellClick(Column: TColumn); begin showmessage(IntToSTr(Query1.RecNo)); end;