DBGrid — OnCellClick и OnDblClick, возвращают форму/TBMemo, содержащую значения/ячейки/столбца

В следующем коде показано, как получить доступ к координатам столбца и строки ячейки TDBGrid, по которой выполняется двойной щелчок, и к строковому значению содержимого ячейки.

Как написано, он отображает номер столбца и строки ячейки + содержимое строки в заголовке формы. Что вы на самом деле делаете с этими значениями, зависит от вас.

Это работает, потому что курсор набора данных в наборе данных, подключенном к DBGrid, перемещается в строку набора данных, соответствующую ячейке, в которой находится указатель мыши.

type
 TMyDBGrid = class(TDBGrid);

procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
  ARow,
  ACol : Integer;
  Pt : TPoint;
  CellValue : String;
begin
  //  First, get the mouse pointer coordinates
  Pt.X := Mouse.CursorPos.X;
  Pt.Y := Mouse.CursorPos.Y;
  //  Translate them into the coordinate system of the DBGrid
  Pt := DBGrid1.ScreenToClient(Pt);

  //  Use TDBGrids inbuilt functionality to identify the Column and
  //  row number. 
  ACol := DBGrid1.MouseCoord(Pt.X, Pt.Y).X -1;
  ARow := DBGrid1.MouseCoord(Pt.X, Pt.Y).Y;
  CellValue := DBGrid1.Columns[ACol].Field.AsString;

  Caption := Format('Col:%d Row:%d Cell Value:%s', [ACol, ARow, CellValue]);
end;

Обратите внимание, что я использовал свойство Caption формы для отображения информации о ячейке сетки просто как быстрый и грязный способ показать информацию где-нибудь. Конечно, вы могли бы с таким же успехом отобразить его в другой области формы или где-то совсем в другой форме. Приведенный выше код будет одинаково хорошо работать в событии сетки OnCellClick, кстати.

Как отмечено в комментарии, вы можете использовать свойство сетки SelectedField вместо приведенного выше, но лично я думаю, что приведенное выше более информативно о том, как работать с DBGrid, потому что оно показывает, как получить координаты столбца и строки ячейки. См. свойства SelectedField, SelectedIndex и SelectedRows DBGrid в интерактивной справке для получения дополнительной информации о полезных свойствах TDBGrid.

Обновление В комментарии вы попросили пример отображения информации в другой форме. Предположим, что эта форма называется OtherForm, находится в блоке OtherFormu.Pas и создана до вызова события DBGrid1DblClick. Вам нужно использовать этот модуль в Useslist модуля, который содержит DBGrid. Предположим, что эта другая форма содержит элемент управления TMemo с именем Memo1. Затем вы можете написать свой обработчик DBGrid1DblClick следующим образом:

procedure TForm1.DBGrid1DblClick(Sender: TObject);
[as above]
begin
  [ as above ]
  CellValue := DBGrid1.Columns[ACol].Field.AsString;

  OtherForm.Memo1.Lines.Add(Format('Col:%d Row:%d Cell Value:%s', [ACol, ARow, CellValue]));
end;