PROSAGA码农传奇-量子传输-DevExpress Quantum Grid简单指南

<div class =“post-text”itemprop =“text”>
  <P>
    初学者帮助的最佳地点是Devex的网站，例如：
    <a href="https://www.devexpress.com/Support/Center" rel="nofollow">
      https://www.devexpress.com/Support/Center
    </A>
  </p>
  <P>
    正如我认为你已经注意到的，TcxGrid（现在是量子网格）的问题是其过多的属性，嵌套属性等等。他们的演示显示了网格可以做什么，但找到通过对象检查器使它们工作的设置的方法是一个噩梦。
当然，当你开始在OI中玩游戏时，你做的事情就会停止它的工作，你的步伐可能会非常艰难。
  </p>
  <P>
    因此，我认为一个开始的好地方是一个项目，它完全在代码中创建网格，以便除了您在代码中明确设置的内容之外，所有内容都将获得默认值。正如您所看到的，实际上很少需要做一个基本级别的简单数据绑定网格。
  </p>
  <P>
    试试这个
  </p>
   <pre>
    <code>
      type
  TForm1 = class(TForm)
    CDS1: TClientDataSet;
    CDS1ID: TAutoIncField;
    CDS1Marked: TBooleanField;
    CDS1Value: TStringField;
    DS1: TDataSource;
    DBNavigator1: TDBNavigator;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    procedure FormCreate(Sender: TObject);
  public
    cxGrid : TcxGrid;
    cxLevel : TcxGridLevel;
    cxView : TcxGridDBTableView;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  CDS1.IndexFieldNames := 'ID';
  CDS1.CreateDataSet;

for i := 1 to 5 do begin
    CDS1.Insert;
    CDS1.FieldByName('Marked').AsBoolean := Odd(i);
    CDs1.FieldByName('Value').AsString := 'Value  ' + IntToStr(i);
    CDS1.Post;
  end;

CDS1.First;

cxGrid := TcxGrid.Create(Self);
  cxGrid.Parent := Self;
  cxGrid.Width := 250;

cxLevel := cxGrid.Levels.Add;
  cxLevel.Name := 'Firstlevel';

cxView := cxGrid.CreateView(TcxGridDBTableView) as TcxGridDBTableView;
  cxView.Name := 'ATableView';

cxLevel.GridView := cxView;

cxView.DataController.DataSource := DS1;

cxView.DataController.CreateAllItems;

end;

</code>
  </pre>
</DIV>