mysql - DBGrid - OnCellClick 和 OnDblClick，返回包含单元格/列值的表单/TBMemo

Question

我正在使用添加到 DBGrid - OnCellClick 事件中的以下代码

procedure TForm2.DBGrid1CellClick(Column: TColumn);
begin
if dbmodule.comenziDataSet.Active then
  begin
    if not Assigned(dbgridCelulaForm) then
    begin
      dbgridCelulaForm := TdbgridCelulaForm.Create(Self);
      dbgridCelulaForm.DBMemoCelula.DataSource := dbmodule.comenziSource; 
    end;

    dbgridCelulaForm.Visible := False;
    dbgridCelulaForm.Visible := True;
    dbgridCelulaForm.DBMemoCelula.DataField := Column.FieldName;
    dbgridCelulaForm.Caption := Format('%s / randul: %d',[Column.FieldName, DBGrid1.DataSource.DataSet.RecNo]);
  end;
end;

dbgridCelulaForm = 包含 TDBMemo 的表单名称DBMemoCelula = TDBMemo 的名称dbmodule.comenziDataSet = comenziDataSet 是DataSet 的名称，dbmodule 是数据模块 的名称(单位，如表单) - DataSet位于数据模块上，因此，dbmodule.comenziDataSetdbmodule.comenziSource = 与数据集相同，数据模块上的DataSource，源名为comenziSource

好的，这段代码的作用是:

一旦我点击DBGrid上的一个单元格，它就会弹出一个form(名为dbgridCelulaForm)，其中包含一个TBMemo(名为DBMemoCelula)和它向我显示该单元格中包含的信息(例如，客户名称，或者单元格在我的数据库中保存的任何内容)

这很好，我的问题是我现在无法在 DBGrid 中选择行，好吧，我可以，但是一旦我完成了第一个位置，我就在特定行上单击(单元格，任意)我想用鼠标进行选择，然后激活单元格并弹出表单。

是否可以在 DBGrid - OnDblClick 事件中使用此代码而不是 OnCellClick ？这意味着一旦我双击行/单元格，表单就会弹出并显示信息，但是双击 - 而不是单击。

这样，如果需要，我仍然可以选择该行并查看单元格中的信息。

或任何其他方式/地点来使用/接收此功能。有什么想法吗？

如果我的解释不明确并且您认为这会有所帮助，我可以发布所有内容的快速视频，请在评论/答案中告诉我。

另外，我正在使用 RAD Studio 10 Seattle 和 dbexpress 数据库组件 - 如果有帮助的话。

谢谢!

Answer 1

以下代码显示如何访问双击 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 更具指导意义，因为它展示了如何获取单元格的列和行坐标。有关 TDBGrid 有用属性的详细信息，请参阅联机帮助中的 DBGrid 的 SelectedField、SelectedIndex 和 SelectedRows 属性。

更新您在评论中询问了在另一个表单上显示信息的示例。假设此表单名为 OtherForm，位于 OtherFormu.Pas 单元中，并且是在调用 DBGrid1DblClick 事件之前创建的。您需要在包含 DBGrid 的单元的 Useslist 中使用该单元。让我们假设另一个窗体包含一个名为 Memo1 的 TMemo 控件。然后，您可以像这样编写 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;