CXGrid如何设置某格为ProgressBar？？？？

[zbdzjx]

这两天准备实现一个效果，显示加工的进度，需要在CXGrid的某个单元格里显示ProgressBar，但我试了试，好像只能将某列显示成ProgressBar，无法改某个单元格。
请高手指点一下，该如何设置？？
当然，是有一个办法，就是直接在单元格里画。不知有没有其他好的办法。

[simonhehe]

1 拖拽一个 TcxEditRepository 控件, 双击打开控件编辑界面, 添加一个ProgressBar, 名称自定(如: cxPB1) 2 哪个列要动态显示ProgressBar则在该列的OnGetPropertiesForEdit事件中写以下语句即可 AProperties := cxPB1.Properties

[zbdzjx]

引用 1 楼 simonhehe 的回复:

1 拖拽一个 TcxEditRepository 控件, 双击打开控件编辑界面, 添加一个ProgressBar, 名称自定(如: cxPB1) 2 哪个列要动态显示ProgressBar则在该列的OnGetPropertiesForEdit事件中写以下语句即可 AProperties := cxPB1.Properties

非常感谢，我回去试试。

[zbdzjx]

引用 1 楼 simonhehe 的回复:

1 拖拽一个 TcxEditRepository 控件, 双击打开控件编辑界面, 添加一个ProgressBar, 名称自定(如: cxPB1) 2 哪个列要动态显示ProgressBar则在该列的OnGetPropertiesForEdit事件中写以下语句即可 AProperties := cxPB1.Properties

我试了一下，在运行时不显示ProgressBar，只有在这个单元格点一下，进入编辑状态才能显示出来，而且如果这个列是只读的，点进去也不显示。

[simonhehe]

你要的是始终显示? 在OnGetProperties中写

  
  if ARecord = nil then
    exit;
  
  //偶数行显示progressBar
  if ARecord.Index mod 2 = 1 then
    AProperties := cxPB1.Properties