uses cxDataStorage
AColumn.DataBinding.ValueType := TcxIntegerValueType;
DataBinding.ValueTypeClass = TcxStringValueType
PropertiesClass := TcxComboBoxProperties;
PropertiesClass := TcxTextEditProperties;
DataBinding.ValueTypeClass = TcxBooleanValueType
PropertiesClass := TcxCheckBoxProperties;
DataBinding.ValueTypeClass = TcxIntegerValueType
PropertiesClass := TcxSpinEditProperties;
clnSkill.DataBinding.ValueTypeClass := TcxStringValueType;
clnGrade.DataBinding.ValueTypeClass := TcxVariantValueType;
clnName.DataBinding.ValueTypeClass := TcxStringValueType;
Columns[I].DataBinding.ValueTypeClass := TcxFloatValueType
if <AColumn>.DataBinding.ValueTypeClass = TcxIntegerValueType then
begin
... // Integer
end
else
if <AColumn>.DataBinding.ValueTypeClass = TcxStringValueType then
begin
... // String
end
...
Columns[I].PropertiesClass := TcxTextEditProperties;
Columns[i].PropertiesClassName:= 'TcxDateEditProperties';
Columns[i].PropertiesClassName:='TcxMemoProperties';
注意区别:Class和ClassName
版权声明:本文为wozengcong原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。