[重要]通讯录修改**

cdz0451

修改通讯录：
在左侧树型节点的右键单击事件中加入控制代码，判断符合条件的节点 则 将 ToolBar中相应按钮进行 Visiblse:= False; 设置。
问题：
在程序一开始打开后，完全达到效果，可是点击节点后 选择右键 刷新 后
原有的 控制代码 就失效了！

感觉：ToolBar 上的按钮 在刷新后，失去了控制！

真搞不懂 你们的程序是什么原因。

设置断点发现：没有刷新时 字符判断
   sText := ANode.Parent.Text;
     if(sText = '公共地址簿') then
这句好使，刷新后，这个判断不好使了
换成 if (sText.Equals('公共地址簿')) then     
也不行！ 当前节点 ANode 等于 公共地址簿 节点的二级字节点
服了！X3 这程序 太牛了！字符判断居然这样。

shangxy

设置断点发现：没有刷新时 字符判断
   sText := ANode.Parent.Text;
     if(sText = '公共地址簿') then
这句好使，刷新后，这个判断不好使了

楼主把你的写的代码贴出来看一下吧。

cdz0451

function TADDRESSLISTNEWFORM.getIsPublicNode(ANode:TTreeNode):Boolean;
var
   sText:String;
   bRes :Boolean;
begin

  if(ANode <> nil) then
  begin
   if(ANode.Parent = nil) then
   begin
     sText := ANode.Text;
     if(sText.Equals('公共地址簿')) then
        Result := True
     else
        Result := False;
   end
   else
   begin
     if (ANode.Parent.Equals('公共地址簿')) then
        Result := True
     else
        Result := False;
   end;
  end
  else
      Result := False;
end;

这段代码只是一部分判断
上面的代码放到
procedure TADDRESSLISTNEWFORM.tvGroupChange(Sender: TObject; Node: TTreeNode);
函数内，在程序没有执行 右键“刷新”时，可以判断！ 点击树型列表 选择右键上的 “刷新”，判断就失效了！
很奇怪！

yancm

您在右键刷新的事件后后调用一下您的方法吧。

cdz0451

NO4 你说的
我都试验了！X3 对字符比对好像很弱呀！

yancm

如果可以的话，希望能提供您的全部修改的内容。根据您提供的信息我看不出来您说的问题和字符比对之间有什么关系。

cdz0451

等一下

cdz0451

结贴吧
我搞定了

yancm

可以分享一下，问题是出在哪里吗？

shangxy

能说说什么原因麽?