【结】[急]数据库备份与还原问题**

jianth2005

18楼的问题不急解决了``换了个思路避开这难点了 - -!
再来个问题:TreeChart如何设置节点不能移动？

shangxy

TreeChart1.Options:= TreeChart1.Options -[TOrgChartOptionsEnum .ocCanDrag];
18楼的问题确实很难解决。。。。

gaihl

18楼的问题,参考一下
function TMainForm.GetOrgNode(sName : String; ocn : TOrgChartNode): TOrgChartNode;
var
  i : Integer;
begin
  ocn.Expanded := True;
  for i := 0 to ocn.Count - 1 do
  begin
    if ocn.Items.Text = sName then
      Result := ocn.Items
    else
      Result := GetOrgNode(sName, ocn.Items);
    if Result <> nil then Break;
  end;
end;

procedure TMainForm.Button1Click(Sender: TObject);
var
  o : TOrgChartNode;
begin
  o := GetOrgNode('张三', OrgChart1.RootNode);
  if o <> nil then o.Selected := True;
end;

jianth2005

................

jianth2005

揭贴了

gaihl

18楼的代码有点问题刚做了下修改,楼主可以看一下. 结了

jianth2005

最初由 gaihl 发布
[B]18楼的代码有点问题刚做了下修改,楼主可以看一下. 结了 [/B]

   
好!23楼代码可以了

gaihl

没有越界的问题.

jianth2005

感谢shangxy的分享帖子,感谢gaihl的指点,感谢.....
呵呵~都解决了
揭贴了