如何判断Delphi中的TcxLookupComboBox编辑器是否发生变更？

对于TcxLookupComboBox，你可以通过保存初始值并与当前值对比的方式判断是否未发生变更，具体步骤如下：

1. 声明变量存储初始值 #

在窗体类的private区域声明一个Variant类型的变量，用来保存控件的初始选中值：

type
  TForm1 = class(TForm)
    cxLookupComboBox1: TcxLookupComboBox;
    btnCheck: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnCheckClick(Sender: TObject);
  private
    FOriginalLookupValue: Variant; // 存储初始值
  public
    { Public declarations }
  end;

2. 保存初始值 #

在窗体创建或数据加载完成后，将控件的初始值存入变量。如果控件绑定了数据集，也可以在数据集切换记录时更新这个初始值：

情况1：窗体创建时保存（静态数据或单次加载） #

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 确保Lookup的数据源已加载
  if Assigned(cxLookupComboBox1.Properties.ListSource.DataSet) and cxLookupComboBox1.Properties.ListSource.DataSet.Active then
    FOriginalLookupValue := cxLookupComboBox1.EditValue;
end;

情况2：绑定数据集时，记录切换保存 #

如果控件绑定了DataSource，在DataSource的OnDataChange事件中更新初始值，确保每次切换记录都保存当前记录的初始选择：

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  FOriginalLookupValue := cxLookupComboBox1.EditValue;
end;

3. 对比初始值与当前值 #

写一个判断函数，安全对比初始值和当前控件的EditValue（注意处理空值和不同数据类型的情况）：

function TForm1.IsLookupUnchanged: Boolean;
begin
  // 处理空值情况：初始值为Null时，当前值也为Null则未变更
  if VarIsNull(FOriginalLookupValue) then
    Result := VarIsNull(cxLookupComboBox1.EditValue)
  else
    // VarEquals安全对比Variant类型值，兼容不同数据类型
    Result := VarEquals(FOriginalLookupValue, cxLookupComboBox1.EditValue);
end;

4. 调用判断逻辑 #

在需要检查的地方（比如按钮点击事件）调用函数，根据结果显示提示：

procedure TForm1.btnCheckClick(Sender: TObject);
begin
  if IsLookupUnchanged then
    ShowMessage('未选择任何更改')
  else
    ShowMessage('已做出选择更改');
end;

关键说明 #

• EditValue是TcxLookupComboBox的核心属性，对应选中项的实际绑定值（比如ID字段），而非显示文本。
• 使用Variant类型存储初始值，是因为Lookup绑定的字段可能是整数、字符串等不同类型，Variant能兼容所有情况。
• VarEquals和VarIsNull是Delphi提供的安全Variant操作函数，避免直接用=对比时出现的类型不匹配问题。

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