在运行时构建TcxGrid时将TcxSpinEdit属性设置为列

时间:2012-08-22 09:02:48

标签: delphi delphi-xe2 tcxgrid

我正在处理其他人的代码,他们正在构建一个TcxGrid,而无需通过可视化编辑器。我将该网格导出为ex​​cel,因此我需要将列类型设置为TcxSpinEdit(内容都是数字)。

如何设置属性?我尝试使用PropertyClass和PropertyClassName但它们都不起作用(我仍然在excel中得到“数字为文本”警告)。

这是相关部分:

var
Stolpec: TcxGridDBColumn;

[...]

if CheckBoxStevilkoMultiTime.Checked    then
    begin
      Stolpec := cxGrid1DBTableView3.CreateColumn;
      Stolpec.DataBinding.FieldName := 'STVLK_INI_C';
      Stolpec.Width := larghCol;
      Stolpec.FooterAlignmentHorz := taRightJustify;
      Stolpec.GroupSummaryAlignment := taRightJustify;
      Stolpec.Name := 'cxGrid1DBTableView3' + Colonna.DataBinding.FieldName;
      TcxGridDBTableSummaryItem(cxGrid1DBTableView3.DataController.Summary.DefaultGroupSummaryItems[5]).Column := Stolpec;
      TcxGridDBTableSummaryItem(cxGrid1DBTableView3.DataController.Summary.DefaultGroupSummaryItems[5]).Position := posIndx;
      Stolpec.Caption := 'Stevilko';
      Stolpec.Options.Editing := False;
    end;

1 个答案:

答案 0 :(得分:2)

uses
   cxSpinEdit;

...
  Stolpec.PropertiesClass := TcxSpinEditProperties;
  TcxSpinEditProperties(Stolpec.Properties).MaxValue:= 10;
...