Fila y columna de un DBgrid

[Parsec]

Hola,

Estoy dándole vueltas y me he atascado:

si un usuario hace clic en una celda de un DBgrid, necesito saber la fila y la columna que ocupa en el Dbgrid.

saludos

[ecfisa]

Hola Parsec.

Código Delphi [-]
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
  mp: TPoint;
  gc: TGridCoord;
begin
  with Column.Grid do
  begin
    mp := ScreenToClient(Mouse.CursorPos);
    gc := MouseCoord(mp.X, mp.Y);
  end;
  Caption := Format('Col:%d, Fil:%d',[gc.X, gc.Y]);
end;

Saludos.

[Parsec]

Hola Ecfisa,

GENIAL!!, muchas gracias.

Saludos

[Parsec]

Hola Ecfisa,

Y para capturar la celda según el cursor y no del mouse?

Saludos

[ecfisa]

Hola Parsec.

Podes hacer:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TStringGrid(DBGrid1) do
    ShowMessage(Format('Col:%d, Fil:%d',[Col, Row]));
end;

Saludos

[Parsec]

Ecfisa eres un monstruo!!!!, muchas gracias señor.

Saludos.