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

Question

我正在处理其他人的代码，他们正在构建 TcxGrid 而无需通过可视化编辑器。我将该网格导出到 excel，所以我需要将列类型设置为 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;

Answer 1

uses
   cxSpinEdit;

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