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中选择行，好吧，我可以但是一旦我做了第一个位置，我就会在特定行上单击（一个单元格，任何一个）想要用鼠标选择，然后单元格激活，弹出form。

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

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

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

如果我的解释含糊不清，我可以发布所有内容的快速视频，您认为这会有所帮助，只需在评论/答案中告诉我。

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

谢谢！

Answer 1

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

如上所述，它会在表单的标题上显示单元格的列和行号+字符串内容。取决于你对这些值的实际操作。

它起作用是因为连接到DBGrid的数据集上的数据集光标被移动到与鼠标指针所在的单元格对应的数据集行。

DateTime dateTimeZerodMillis = new DateTime().millisOfSecond ().setCopy("0")

请注意，我已经使用表单的Caption属性来显示网格单元格信息，就像在某处显示信息的快速方式一样。当然，您也可以将其显示在表单的另一个区域或完全不同的表单上。上面的代码在网格的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;事件，btw。

中同样有效

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

更新您在评论中询问了在另一个表单上显示信息的示例。假设这个表单被称为SelectedRows，它位于单位OtherForm中，并在调用OtherFormu.Pas偶数之前创建。您需要在包含DBGrid的单元的Useslist中使用此单元。让我们假设这个其他形式包含一个名为Memo1的TMemo控件。然后，您可以像这样编写DBGrid1DblClick hanndler：

DBGrid1DblClick

DBGrid - OnCellClick＆amp; OnDblClick，返回包含单元格/列值/ s的表单/ TBMemo

1 个答案: