一、新建VCL工程加入TAdapterBingSource控件
二、定一个TPerson类 MyPerson : TPerson; TPerson = class private FAge: Integer; FLastname: string; FFirstname: string; public constructor Create(const Firstname, Lastname : string; Age : Integer); virtual; property Firstname : string read FFirstname write FFirstname; property Lastname : string read FLastname write FLastname; property Age : Integer read FAge write FAge; end; 三、双击并加入事件代码 1.创建一个对象实列Person 2.创建一个BindSourceAdapter
procedure TForm4.AdapterBindSource1CreateAdapter(Sender: TObject; var ABindSourceAdapter: TBindSourceAdapter); begin MyPerson :=TPerson.Create('test','test1', 13); ABindSourceAdapter := TObjectBindSourceAdapter<TPerson>.Create(Self, MyPerson, True); end;
四、放一个TStringGrid对象 在Events LiveBindings点击BindVisually
点击运行
===================================================== 以下为原话 LiveBindings in XE3: TAdapterBindSource and binding to ObjectsIn the last post I introduced BindSources, a new set of classes in the LiveBinding system in RAD Studio XE3, and in particular, looked at TBindSourceDB . That’s fine if what you are binding to is a Dataset, but what happens if what you want to bind to is an object?
Well, an easy answer would be “Do it the same way you did it in XE2″. Binding to objects was possible in LiveBindings in XE2, and that approach will still work, however it doesn’t leverage all the LiveBinding Designer goodness. A better answer, if we want to both use the LiveBinding Designer and do the minimal amount of work, is to use another of the BindSource components: the TAdapterBindSource .
Whereas the TBindSourceDB acted as a gateway to allow us to connect the LiveBindings engine to fields in a dataset, a TAdapterBindSource allows us to connect it to elements in an Adapter. What’s an Adapter? Well, it’s a descendant of TBindSourceAdapter, who’s responsibility it is to take your custom data source (in this case an object) and make it available (ie. adapt it) to the TAdapterBindSource, and by extension, the LiveBinding engine. An example is probably in order, then we’ll come back and drill in a bit further. Create a new FireMonkey project (LiveBindings are available in VCL too), and in the form source define a new class like this:
The constructor, not surprisingly, is implemented like this:
Note, I didn’t have to use properties to make this work, it works just as well with Fields. Old habits die hard I guess. Also, add a private field to your form like so:
Next, drop a TAdapterBindSource on the form and put the following code in its OnCreateAdapter event:
The first line is not that interesting: I’m creating an instance of our TPerson class. However it’s the second line where we encounter our first adapter. The OnCreateAdapter event has a var parameter of type TBindSourceAdapter called ABindSourceAdapter. I need to create an instance of a TBindSourceAdapter (usually of a descendant) and pass it back to the TAdapterBindSource via this var parameter. That’s what the second line does. You can see we’re creating an instance of a generic TObjectBindSourceAdapter<T>, specifically a TObjectBindSourceAdapter<TPerson>. I’m passing the following values in to the constructor:
This is actually enough to get started. If you drop a Grid down on the form, drag a link between the * field in the AdapterBindSource to the * in the Grid in the LiveBindings Designer (see the bottom of the screenshot below) and run your app you should see the values of our Person instance in the Grid.
That’s useful as far as it goes, but there is a problem: I can’t see the Firstname, Lastname and Age properties in the LiveBindings Designer, which makes it a manual process to bind one of those values to say an Edit box or Label. We’ve cheated by using the * property of the AdapterBindSource but unless we’re happy using a grid to display a single TPerson, we’re going to need to solve this. (We’ll come back to collections of objects later, I promise)
To get the fields of my object to show up in the LiveBindings designer, we can leverage another new component in XE3, a TDataGeneratorAdapter. This is another TBindSourceAdapter descendant, and in fact this one is installed on the component palette (I did mention before that TBindSourceAdapters were TComponents). A TDataGeneratorAdapter allows you to define one or more fields in your adapter, along with an accompanying generator that will generate some format of values for your field, at both design time and run time if you like. Drop one onto your form and then bring up the property editor for the TDataGeneratorAdapter.FieldDefs property and have a look:
As you can see, there is a Booleans generator that will generate random boolean values, random currency generators, date generators for both TDate types and also strings containing date values. Scroll further down and there are even String and TStrings generators that will fill return Lorem Ipsum text. Let’s create three fields to match the name and type of our TPerson object like so:
Now select your AdapterBindSource and set its Adapter property to point to our DataGeneratorAdapter component. Make sure the DataGeneratorAdapter is set to Active and at design time you should see something like this:
Not only do we have design-time data in our grid (courtesy of our generators), but we also now have the fields showing up in the LiveBinding Designer so we can start easily binding their values to other controls. Because we still have the OnCreateAdapter event setup, and further, because the names of the fields we created in our DataGeneratorAdapter match the field names in our TPerson class, if we run the app now our DataGeneratorAdapter will be replaced as the adapter for the AdapterBindSource by our TObjectBindSourceAdapter, giving us an easy design-time experience while still giving us data from our object at runtime. If we removed this event, the AdapterBindSource would continue to use the DataGeneratorAdapter at runtime as well. A few things to note here:
Now that we have fields showing up in the LiveBindings Designer, you can go ahead and replace the grid with components more appropriate for displaying a single object instance if you wish. You can do this either by adding the component to the form and dragging in the designer to create the link, or right-click on the fields in the designer and select “Bind to new control…”. (check out the previous article if you need a refresher) However I’m going to leave the grid there, as I want to come good on the promise I made earlier: to look at binding to a collection of objects. Let’s change the MyPerson field that we added to our form earlier to look like:
Then, go back into the source in your AdapterBindSource1.OnCreateAdapter event and change it to look like this:
You can see we’re creating a TObjectList, we’re adding a few instances to it, and then rather than creating a TObjectBindSourceAdapter, we’re creating a TListBindSourceAdapter. That’s all we need to do. Run your app, and you should see the four TPerson instances we created in the grid. Further, if you right-click on the AdapterBindSource at designtime and add a Navigator, at runtime you can click the Insert button in the Navigator and it will add a new TPerson instance to our list, ready for editing. That’s enough for this post, but we’re not quite done with this topic. Next post I want to look at editing the data in your objects, as using the Adapters in the way we just have raises a couple of interesting issues that aren’t immediately obvious (or at least they weren’t to me). Further Reading
不爽的的是在设计期间不能知道对象有几个属性(FisrtName, LastName, Age在设计期间都看不见), 为了解决这个问题我们使用 TDataGeneratorAdapter 控件 一、拖入一个 TDataGeneratorAdapter 控件并点击Add Field
二、设计完成后连接StringGrid与 TDataGeneratorAdapter 绑定
到些设计已经完成,但我们仍然配置OnCreateAdapter事件 我们在DataGeneratorAdapter创建的字段匹配TPerson类 如果我们运行程序会通过 DataGeneratorAdapter通过TObjectBindSourceAdapter 替换成 AdapterBindSource, 如果我们不需要这个事件, AdapterBindSource会使用DataGeneratorAdapter也可以运行 NOTE: 1.DataGeneratorAdapter类似DataSet 可以编辑、提交、保存 2.当需要一个DataSet时可以使用DataGeneratorAdapter MyPeople : TObjectList<TPerson>; procedure TForm1.AdapterBindSource1CreateAdapter(Sender: TObject; var ABindSourceAdapter: TBindSourceAdapter); begin MyPeople := TObjectList<TPerson>.Create(); MyPeople.Add(TPerson.Create('Fred', 'Flintstone', 40)); MyPeople.Add(TPerson.Create('Wilma', 'Flintstone', 41)); MyPeople.Add(TPerson.Create('Barney', 'Rubble', 40)); MyPeople.Add(TPerson.Create('Betty', 'Rubble', 39)); ABindSourceAdapter := TListBindSourceAdapter<TPerson>.Create(Self, MyPeople, True); end;
|
|