张志峰的博客

水滴石川，积少成多。

导航

delphi TCXTreelist 通过代码控制行的可编辑性

Posted on 2013-10-23 11:17  ╰★张志峰★╮  阅读(511)  评论(0)  编辑  收藏  举报

procedure TfrmSetOutPzTradeDeptPerson.grdTradeClientEditing(Sender: TObject;
  AColumn: TcxTreeListColumn; var Allow: Boolean);
begin
  if not Assigned(grdTradeClient.FocusedNode) then Exit;
  Allow := grdTradeClient.FocusedNode.Level = 1;
end;