隐藏TcxGrid中某些行的TcxEditButton

Question

我已经实现了一个包含一些列的TcxGrid。此网格中最后一列中的单元格包含TcxEditButton类型的按钮。

网格的内容要么由用户输入，要么在创建其父窗体时从文本文件中加载。

我想根据网格中的值隐藏其中的一些按钮。决定按钮可见性的值可以从网格内存数据集中读取，也可以直接从网格中的隐藏列中读取。

我的问题是，我无法找到正确的事件来对值进行检查，并设置按钮的可见性属性。我尝试在网格表格和包含按钮的列上使用所有类型的事件。

关于如何在绘制网格时获取按钮项并同时进行设置，有什么建议吗？

解决方案:如果接受解决方案，则最终使用修改后的版本。

procedure TFrame_cx_Element_Inntasting_Kriterier.cxGrid_InntastingDBTVPropertiesGetProperties(
  Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
  var AProperties: TcxCustomEditProperties);
begin
  if ARecord.Values[cxGrid_ColumnWithValidatedValue.Index] = true then
    AProperties := cxEditRepository1ButtonItem1.Properties
  else
    AProperties := cxEditRepository1Label1.Properties;
end;

Answer 1

使用类型为TcxEditButton的列的OnGetProperties事件。

使用ARecord，您可以根据列索引获取同一行的另一列的值。

设置属性的最简单方法是在TcxEditRepository中使用两个预定义的TcxEditButtons，例如名为ButtonsVisible和ButtonsInvisible。

这个事件看起来就像这样：

procedure TForm1.cxGrid1TableView1EditButtonColumnGetProperties(
  Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
  var AProperties: TcxCustomEditProperties);
var
  Value: Variant;
  Buttons: TcxEditButtons;
  ButtonEnabled : Boolean;
begin
  if VarIsNull(ARecord.Values[cxGrid1TableView1ColumnToCheck.Index]) then
    AProperties := ButtonsInvisible.Properties; 
    // or AProperties := ButtonsVisible.Properties depending on what you want/need

  Value := ARecord.Values[cxGrid1TableView1ColumnToCheck.Index];
   if (Value = ValueWhenVisible) then
     AProperties := ButtonsVisible.Properties
   else
     AProperties := ButtonsInvisible.Properties;
end;

希望这能让你走上正轨。

Answer 2

在TcxGridDBTableView上使用OnInitEdit事件。