自定义复选框切换按钮：图片勾选时TADOQuery加载后状态不回显问题

问题根因 #

你自定义的TinToggleButton2继承自数据感知控件TwwCheckbox，但仅处理了手动点击时的图片切换逻辑，没有监听控件自身Checked属性的变化，也没有响应数据源的字段值更新事件。当表单重新打开、查询激活时，数据集会自动给控件的Checked属性赋值，但此时你嵌入的TImage不会自动切换到对应状态的图片，就会出现状态显示和实际值不一致的问题。

解决方法 #

1. 重写TinToggleButton2的SetChecked方法 #

TwwCheckbox的Checked属性变化时会调用SetChecked方法，你重写这个方法，在里面同步更新图片即可，不需要额外监听数据源事件。

2. 优化点击逻辑，避免重复赋值 #

现在的点击逻辑可以简化，只需要修改Checked属性，剩下的状态同步交给SetChecked统一处理，减少重复代码。

修改后的完整组件代码参考：

// 首先在TinToggleButton2的类定义中添加方法声明
procedure SetChecked(Value: Boolean); reintroduce;

// 实现SetChecked方法，统一处理状态和图片的同步
procedure TinToggleButton2.SetChecked(Value: Boolean);
begin
  inherited SetChecked(Value);
  // 根据Checked属性切换对应状态的图片
  if Value then
    Image.Picture.LoadFromFile('toggle_Toggle2.ico')
  else
    Image.Picture.LoadFromFile('toggle_Toggle1.ico');
end;

// 简化后的点击事件逻辑
procedure TinToggleButton2.Image1Click(Sender: TObject);
begin
  if DataSource <> nil then
  begin
    DataSource.Edit;
    // 翻转Checked属性即可，图片切换交给SetChecked处理
    Self.Checked := not Self.Checked;
    // 同步更新数据集字段值
    if Self.Checked then
      DataSource.DataSet.FieldByName(DataField).Value := ValueChecked
    else
      DataSource.DataSet.FieldByName(DataField).Value := ValueUnchecked;
  end;
end;

// 简化后的构造函数
constructor TinToggleButton2.Create(AOwner: TComponent);
begin
  inherited;
  Width:= 34;
  Height:= 15;
  Image:= TImage.Create(Self);
  Image.Visible:= true;
  Image.Parent:= Self;
  Image.OnClick:=Self.Image1Click;
  // 初始化默认状态
  SetChecked(False);
end;

额外注意事项 #

• 如果你的Delphi版本支持IfThen函数，可以简化字段赋值逻辑，需先引用StrUtils单元。
• 建议把ico文件封装到程序资源中加载，不要用本地绝对路径，避免部署后出现文件找不到的问题。

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