fluent livebindings, No list control editor available for TstringGrid

[bernhard_LA]

in dieser Testanwendung werden die Daten fehlerfrei angezeigt
gibt es noch mehr glue code bei dem Thema livebinding ?

wie kann ich eine fehlende - nicht eingebunden Unit debuggen ?

Delphi-Quellcode:

  uses
  LiveBindings.Fluent,
  ......  ( einige eigene Units , TUserQuery )
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants,

  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Controls.Presentation, FMX.Edit, System.IOUtils,
  System.Rtti, FMX.Grid.Style, Data.Bind.EngExt,
  FMX.Bind.DBEngExt, FMX.Bind.Grid, System.Bindings.Outputs, FMX.Bind.Editors,
  Data.Bind.Components, Data.Bind.Grid, Data.Bind.DBScope, FMX.ScrollBox,
  FMX.Grid, FMX.Layouts, FMX.ListBox, Data.Bind.Controls, FMX.Bind.Navigator,
  FMX.EditBox,
  FMX.SpinBox, FMX.TabControl, FMX.Objects, FMX.Memo, FMX.ExtCtrls,
  FMX.Memo.Types;

type
  TForm2 = class(TForm)
    strngrd1: TStringGrid;
    strngrd2: TStringGrid;
    bndnvgtr1: TBindNavigator;
    bndnvgtr2: TBindNavigator;
    bndsrcdb1: TBindSourceDB;
    bndngslst1: TBindingsList;
    bndsrcdb2: TBindSourceDB;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }

    FServer: String;
    FDatabase: string;
    Ftab1: string;
    Ftab2: string;

    FConnection: TUserConnection;

    query_1: TUserquery;
    query_2: TUserquery;
    query_3: TUserquery;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.fmx}

procedure TForm2.FormCreate(Sender: TObject);
begin

  FConnection := TUserConnection.Create(nil);

  query_1 := TUserquery.Create(nil);
  query_1.connection := FConnection;
  query_2 := TUserquery.Create(nil);
  query_2.connection := FConnection;


  query_3 := TUserquery.Create(nil);

  FServer := '????????';
  FDatabase := '??????????';

  Ftab1 := '???????';
  Ftab2 := '???????';

  bndsrcdb1.DataSet := query_1;
  bndsrcdb2.DataSet := query_2;

  ConnectToDatabase(FServer, FDatabase, FConnection);

  query_1.sql.add('select  * from ' + Ftab1);
  query_1.Open;

  query_2.sql.add('select  * from ' + Ftab2);
  query_2.Open;

  bndngslst1.BindGrid(strngrd1).DefaultColumnWidth(256).ToBindSource(bndsrcdb1);

  bndngslst1.BindGrid(strngrd2).DefaultColumnWidth(256).ToBindSource(bndsrcdb2);

  bndnvgtr1.DataSource := bndsrcdb1;

  bndnvgtr2.DataSource := bndsrcdb2;

end;

end.