Botón Derecho y TStringGrid

[Wulvay]

Fuciona + o -... se me genera una excepción cuando pincho fuera de las celdas... las filas se generan en forma dinámica segun los registros en la base de datos... y por ahora sólo tengo 2 campos...

voy a ver como manejar esa excepción... ya traté con try/except, pero me sigue sucediendo...

[roman]

No sé de dónde viene la excepción que mencionas ya que en lo que pruebo no me sale; quizá de alguna sentencia posterior.

De cualquier manera, en lugar de manejar la excepción yo checaría que las coordenadas que obtengo realmente corresponden a una celda:

Código Delphi [-]
procedure TForm1.StringGrid1MouseDown(
  Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  GridCoord: TGridCoord;

begin
  if Button = mbRight then
  begin
    GridCoord := StringGrid1.MouseCoord(X, Y);

    if
      (GridCoord.X >= StringGrid1.FixedCols) and
      (GridCoord.Y >= StringGrid1.FixedRows)
    then
    begin
      StringGrid1.Col := GridCoord.X;
      StringGrid1.Row := GridCoord.Y;
    end;
  end;
end;

Según he visto, si haces click fuera de las celdas, ambas coordenadas se fijan en -1 de manera que sólo tienes que checar que no toque las filas o columnas fijas.

// Saludos

[Wulvay]

Gracias.... acavo de hacer lo mismo y me funciona correctamente... la excepción se produce al pinchar fuera de las celdas, pero dentro del stringgrid ... trata de asignar coordenadas -1 y TGridCoord no las reconoce...

pero ya lo solucioné con un código muy parecido...

Gracias.