如何在Delphi中高效实现ComboBox的NotInList行为？

Delphi确实没有像VB6/VB.NET/Access那样原生提供ComboBox的NotInList事件，但可以通过更合理的事件触发时机和FireDAC特性，实现比OnExit方案体验更好、效率更高的替代逻辑：

一、选择更贴合用户操作的触发时机 #

放弃OnExit事件，改用以下两种时机之一，避免等到控件失焦才触发检查：

• OnCloseUp事件：用户收起下拉列表（无论是否选中选项）时立即触发，贴合下拉选择的操作逻辑
• OnKeyPress监听回车键：用户输入完内容按回车时触发，适合快速录入场景

二、用FireDAC高效定位替代遍历搜索 #

不要手动遍历数据集查找输入内容，直接使用FireDAC的Locate方法，大数据集下效率差异显著：

procedure TForm1.DBComboBox1CloseUp(Sender: TObject);
var
  LFound: Boolean;
  LBindField: string;
begin
  LBindField := '实际绑定字段名'; // 替换为你的ComboBox绑定的字段名称
  // 忽略大小写查找输入内容
  LFound := FDDataSet1.Locate(LBindField, DBComboBox1.Text, [loCaseInsensitive]);
  
  if not LFound then
  begin
    if MessageDlg('列表中未找到该项目，是否立即添加？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
      // 可选：开启事务保障数据一致性
      FDConnection1.StartTransaction;
      try
        FDDataSet1.Append;
        FDDataSet1.FieldByName(LBindField).AsString := DBComboBox1.Text;
        // 如有其他必填字段，可在此补充赋值
        FDDataSet1.Post;
        FDConnection1.Commit;
        
        // 自动定位到新增记录，同步到ComboBox
        FDDataSet1.Locate(LBindField, DBComboBox1.Text, [loCaseInsensitive]);
        DBComboBox1.SetFocus; // 保持焦点在当前控件，方便后续操作
      except
        FDConnection1.Rollback;
        raise;
      end;
    end;
  end;
end;

三、通用封装提升复用性 #

如果多个控件需要该功能，可以把逻辑封装成通用过程，减少重复代码：

procedure HandleNotInList(ADBComboBox: TDBComboBox; ADataSet: TFDDataSet; AFieldName: string);
var
  LFound: Boolean;
begin
  LFound := ADataSet.Locate(AFieldName, ADBComboBox.Text, [loCaseInsensitive]);
  if not LFound then
  begin
    if MessageDlg('列表中未找到该项目，是否立即添加？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
      ADataSet.Append;
      ADataSet.FieldByName(AFieldName).AsString := ADBComboBox.Text;
      ADataSet.Post;
      ADataSet.Locate(AFieldName, ADBComboBox.Text, [loCaseInsensitive]);
      ADBComboBox.SetFocus;
    end;
  end;
end;

// 调用示例
procedure TForm1.DBComboBox1CloseUp(Sender: TObject);
begin
  HandleNotInList(DBComboBox1, FDDataSet1, 'CategoryName');
end;

方案优势 #

• 触发时机更及时，用户操作后立即反馈，提升交互体验
• Locate方法依托数据集索引（若字段有索引），比手动遍历效率提升明显
• 新增后直接定位选中记录，FireDAC自动同步数据感知控件，无需手动刷新整个数据集

内容的提问来源于stack exchange，提问作者HasDev