TClientDataSet 的当前聚焦字段

Question

我遇到一种情况，我必须允许用户更新 dbgrid（连接到 CDS）的 2 个字段中的任意一个，以保留最后输入的字段。因此（在用户输入数据后）我需要获取当前聚焦的控件，以便我将删除以前的字段数据（如果有）。除了这两个领域之外，我还有其他领域。

坚持不使用任何网格相关事件，我必须仅使用 CDS 事件来实现此目的。

提前致谢， 维杰.

Answer 1

使用字段的 OnChange 事件，并清除其他字段值（如果有）：

如下所示：

TForm1.cdsField1Change(Sender: TField);
begin
  if not Sender.IsNull then
    cdsField2.Clear;
end;

TForm1.cdsField2Change(Sender: TField);
begin
  if not Sender.IsNull then
    cdsField1.Clear;
end;