cxgrid动态生成BandedView

var
AView: TcxCustomGridView;
begin
AView := .CreateView(TcxGridDBBandedTableView);
TcxGridDBBandedTableView(AView).DataController.DataSource := ;
TcxGridDBBandedTableView(AView).Bands.Add;
with TcxGridDBBandedTableView(AView).Bands.Add do
begin
Visible := False;
FixedKind := fkLeft;
end;
TcxGridDBBandedTableView(AView).DataController.CreateAllItems;
.GridView := AView;

posted @ 2010-05-24 09:28  delphi中间件  阅读(330)  评论(0编辑  收藏  举报