Delphi中使用Visual Binding结合涉及组件的FDQuery和OnClick事件时是否有Bug？

Question

当您通过 LiveBinding 将

FDQuery

连接到编辑器和切换器时，当您更改查询中的其他连接数据时，切换器 IsCheched 状态会发生变化。

为了更好地理解这里有一个例子： uMain.fmx 文件的代码：

object MainForm: TMainForm
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 704
  ClientWidth = 560
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  OnCreate = FormCreate
  DesignerMasterStyle = 0
  object edt_FirstValue: TEdit
    Touch.InteractiveGestures = [LongTap, DoubleTap]
    Align = MostTop
    TabOrder = 1
    Position.X = 10.000000000000000000
    Position.Y = 10.000000000000000000
    Margins.Left = 10.000000000000000000
    Margins.Top = 10.000000000000000000
    Margins.Right = 10.000000000000000000
    Margins.Bottom = 10.000000000000000000
    Size.Width = 540.000000000000000000
    Size.Height = 22.000000000000000000
    Size.PlatformDefault = False
  end
  object edt_SecondValue: TEdit
    Touch.InteractiveGestures = [LongTap, DoubleTap]
    Align = MostTop
    TabOrder = 0
    Position.X = 10.000000000000000000
    Position.Y = 99.000000000000000000
    Margins.Left = 10.000000000000000000
    Margins.Top = 10.000000000000000000
    Margins.Right = 10.000000000000000000
    Margins.Bottom = 10.000000000000000000
    Size.Width = 540.000000000000000000
    Size.Height = 22.000000000000000000
    Size.PlatformDefault = False
  end
  object Switch1: TSwitch
    Align = MostTop
    IsChecked = False
    Margins.Left = 10.000000000000000000
    Margins.Top = 10.000000000000000000
    Margins.Right = 10.000000000000000000
    Margins.Bottom = 10.000000000000000000
    Position.X = 10.000000000000000000
    Position.Y = 52.000000000000000000
    Size.Width = 540.000000000000000000
    Size.Height = 27.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 7
    OnClick = Switch1Click
  end
  object FDMemTable1: TFDMemTable
    Active = True
    FieldDefs = <
      item
        Name = 'FirstValue'
        DataType = ftString
        Size = 255
      end
      item
        Name = 'SecondValue'
        DataType = ftString
        Size = 255
      end
      item
        Name = 'SwitcherState'
        DataType = ftBoolean
      end>
    IndexDefs = <>
    FetchOptions.AssignedValues = [evMode]
    FetchOptions.Mode = fmAll
    ResourceOptions.AssignedValues = [rvSilentMode]
    ResourceOptions.SilentMode = True
    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
    UpdateOptions.CheckRequired = False
    UpdateOptions.AutoCommitUpdates = True
    LocalSQL = FDLocalSQL1
    StoreDefs = True
    Left = 192
    Top = 352
  end
  object FDConnection1: TFDConnection
    Params.Strings = (
      'DriverID=SQLite')
    Connected = True
    LoginPrompt = False
    Left = 200
    Top = 448
  end
  object FDLocalSQL1: TFDLocalSQL
    Connection = FDConnection1
    Active = True
    DataSets = <>
    Left = 88
    Top = 456
  end
  object FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink
    Left = 352
    Top = 448
  end
  object FDQuery1: TFDQuery
    Active = True
    LocalSQL = FDLocalSQL1
    Connection = FDConnection1
    SQL.Strings = (
      'select * from FDMemtable1')
    Left = 360
    Top = 360
  end
  object BindSourceDB1: TBindSourceDB
    DataSet = FDQuery1
    ScopeMappings = <>
    Left = 264
    Top = 336
  end
  object BindingsList1: TBindingsList
    Methods = <>
    OutputConverters = <>
    Left = 20
    Top = 5
    object LinkControlToField1: TLinkControlToField
      Category = 'Schnelle Bindungen'
      DataSource = BindSourceDB1
      FieldName = 'FirstValue'
      Control = edt_FirstValue
      Track = False
    end
    object LinkControlToField2: TLinkControlToField
      Category = 'Schnelle Bindungen'
      DataSource = BindSourceDB1
      FieldName = 'SecondValue'
      Control = edt_SecondValue
      Track = False
    end
    object LinkControlToField3: TLinkControlToField
      Category = 'Schnelle Bindungen'
      DataSource = BindSourceDB1
      FieldName = 'SwitcherState'
      Control = Switch1
      Track = True
    end
  end
end

uMain.pas 代码：

unit uMain;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS,
  FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.UI.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.FMXUI.Wait, Data.DB,
  FireDAC.Stan.ExprFuncs, FireDAC.Phys.SQLiteWrapper.Stat, FireDAC.Phys.SQLiteDef, FireDAC.Phys.SQLite, FireDAC.Comp.Client, FireDAC.Phys.SQLiteVDataSet,
  FireDAC.Comp.DataSet, FMX.Controls.Presentation, FMX.Edit, FireDAC.DApt, FMX.StdCtrls, System.Rtti, System.Bindings.Outputs, FMX.Bind.Editors,
  Data.Bind.EngExt, FMX.Bind.DBEngExt, Data.Bind.Components, Data.Bind.DBScope, Data.Bind.Controls, FMX.Layouts, FMX.Bind.Navigator;

type
  TMainForm = class(TForm)
    edt_FirstValue: TEdit;
    edt_SecondValue: TEdit;
    FDMemTable1: TFDMemTable;
    FDConnection1: TFDConnection;
    FDLocalSQL1: TFDLocalSQL;
    FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink;
    FDQuery1: TFDQuery;
    Switch1: TSwitch;
    BindSourceDB1: TBindSourceDB;
    BindingsList1: TBindingsList;
    LinkControlToField1: TLinkControlToField;
    LinkControlToField2: TLinkControlToField;
    LinkControlToField3: TLinkControlToField;
    procedure FormCreate(Sender: TObject);
    procedure Switch1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.fmx}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  FDQuery1.Append;
  FDQuery1.FieldByName('FirstValue').AsString := 'First Value, when you click the switcher it should be copyed to the next field';
  FDQuery1.FieldByName('SwitcherState').AsBoolean := false;
end;

procedure TMainForm.Switch1Click(Sender: TObject);
begin
  if Switch1.IsChecked then
    showmessage('You clicked me and my isChecked is TRUE');

  FDQuery1.FieldByName('SecondValue').AsString := edt_FirstValue.Text;

  if Switch1.IsChecked then
    showmessage('It is TRUE like expected')
  else
    showmessage('But now you changed a Field that is connected with visual Binding. IsChecked is FALSE now IMHO because Livebinding sets back the Value to the original State, and you see a short flicker in switch after close this Message');
end;

end.

我希望切换器在之后保持不变，但我认为在更改的切换器状态写回数据库之前，ClickEvent 会发生。恕我直言，这是一个错误，不是吗？