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