TcxGridBand添加一列

时间:2016-11-18 09:56:26

标签: delphi devexpress

我有一个名为cxOptimumView的TcxGridBandedTableView。我想添加动力。我创建了如下列

AColumn := cxOptimumView.CreateColumn;
AColumn.Caption := 'Combo';
AColumn.PropertiesClass := TcxComboBoxProperties;
TcxComboBoxProperties(AColumn.Properties).Items.Add('Item1');
TcxComboBoxProperties(AColumn.Properties).Items.Add('Item2');
TcxComboBoxProperties(AColumn.Properties).Items.Add('Item3');

为它添加一列?我试图在delphi中这样做。我该怎么做?

1 个答案:

答案 0 :(得分:2)

您需要将新列放在一个乐队中。

以下代码创建一个新的band,创建一个新列,然后将该列放入band中(您可以使用现有的band而不是创建一个新的):

var
  AColumn : TcxGridBandedColumn;
  ABand : TcxGridBand;
begin
  cxOptimumView.BeginUpdate();
  try
    //adding band
    ABand := cxOptimumView.Bands.Add;
    //adding column
    AColumn := cxOptimumView.CreateColumn;
    AColumn.Caption := 'Combo';
    AColumn.PropertiesClass := TcxComboBoxProperties;
    TcxComboBoxProperties(AColumn.Properties).Items.Add('Item1');
    TcxComboBoxProperties(AColumn.Properties).Items.Add('Item2');
    TcxComboBoxProperties(AColumn.Properties).Items.Add('Item3');
    //adding column to the band
    AColumn.Position.BandIndex := ABand.Index;
  finally
    cxOptimumView.EndUpdate();
  end;