DBGrid

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 是 data module 的名称（单位，如表格）- DataSet 在 data module 上, 所以, dbmodule.comenziDataSet dbmodule.comenziSource = 和数据集一样，数据模块上的一个DataSource，源名为comenziSource

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

单击 DBGrid 上的一个单元格后，它会弹出一个 form（名为 dbgridCelulaForm），其中包含一个 TBMemo（名为 DBMemoCelula），它会向我显示包含在该单元格（例如，客户名称，或者单元格包含的任何内容，在我的数据库中）

这很好，我的问题是我现在无法在 DBGrid 中 select 行，好吧，我可以，但是一旦我进入第一个位置，我就单击（一个单元格，任何）我想用鼠标 select 的特定行，然后单元格激活并弹出 form。

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

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

或任何其他 way/place 到 use/receive 此功能。有什么想法吗？

如果我的解释含糊不清，我可以post制作所有内容的快速视频，您认为这会有所帮助，请在评论/回答中告诉我。

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

谢谢！

Answer 1

以下代码显示如何访问 TDBGrid 的 dbl-clicked 单元格的列坐标和行坐标，以及单元格内容的字符串值。

正如所写，它在表单的标题上显示单元格的列号和行号 + 字符串内容。取决于您实际使用这些值做什么。

因为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;

请注意，我使用了表格的标题属性来显示网格单元格信息，就像在某处显示信息的快速 n 脏方式一样。当然，您同样可以将其显示在表单的另一个区域或完全不同的表单上的某个地方。上面的代码在网格的 OnCellClick 事件中同样有效，顺便说一句。

如评论中所述，您可以使用网格的 SelectedField 属性而不是上面的，但我个人认为上面的内容对如何使用 DBGrid 更具指导意义，因为它显示如何获取单元格的列和行坐标。有关 TDBGrid 有用属性的详细信息，请参阅联机帮助中 DBGrid 的 SelectedField、SelectedIndex 和 SelectedRows 属性。

更新您在评论中询问了在另一个表单上显示信息的示例。假设此表单名为 OtherForm，位于单元 OtherFormu.Pas 中，并且在调用 DBGrid1DblClick eventbt 之前创建。您需要在包含 DBGrid 的单元的 Uses 列表中使用该单元。让我们假设这个其他窗体包含一个名为 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;

DBGrid - OnCellClick 和 OnDblClick，return 一个 form/TBMemo 包含 cell/column value/s

DBGrid - OnCellClick & OnDblClick, return a form/TBMemo containing cell/column value/s

mysql

delphi

tdbgrid