【结帖】[请求]TCustomTreeView子类树节点重命名取值**

s1113

Business.Forms.TCustomTreeView
该类的方法
procedure Edit(Item: Business.System.tagTVITEMA); virtual;
在子类的方法覆盖中如何得到所编辑的节点最终值？

参数的介绍没有呀？

Akon

没有介绍的,楼主现在是想要干嘛?

s1113

要实现一个DBTreeView的功能，树上的每个节点对应表中的每条记录，节点切换记录动态定位(双向)，设置热键F2重命名树节点时，类似Win资源管理器中文件夹改名的效果，改名后键盘回车确认或鼠标单击其它空白处时，得到重命名后的改节点取值，动态更新对应的数据记录DisplayField字段值，而这个带数据感知的树型控件就是由TTreeView继承而来，封装了包括DisplayField的属性。

我现在覆盖了方法procedure Edit(Item: Business.System.tagTVITEMA); virtual;
取pizText（第二三个字母记不很准了，现在家里没法试），当有改名的时候能取到新的节点显示名，如果什么都不做同时确认，就会把之前的节点显示名都给清空了，级联清空到DisplayField字段，不知到有没有比较完美的解决方法？

jiahaiming

楼主，系统不是有DataTreeView控件吗？

s1113

就是因为DataTreeView不好用呀,又没有源码,领导安排我重写一个!~~

jiahaiming

呵呵，楼主查看一下delphi的帮助吧，这是个delphi6的控件
或者，直接看一下这个控件的源代码（ComCtrls.pas）单元

s1113

procedure TCustomTreeView.Edit(const Item: TTVItem);
var
  S: string;
  Node: TTreeNode;
begin
  with Item do
  begin
    Node := GetNodeFromItem(Item);
    if pszText <> nil then
    begin
      S := pszText;
      if Assigned(FOnEdited) then FOnEdited(Self, Node, S);
      if Node <> nil then Node.Text := S;
    end
    else if Assigned(FOnCancelEdit) then FOnCancelEdit(Self, Node);
  end;
end;

function TCustomTreeView.GetNodeFromItem(const Item: TTVItem): TTreeNode;
begin
  Result := nil;
  if Items <> nil then
    with Item do
      if (state and TVIF_PARAM) <> 0 then
        Result := Pointer(lParam)
      else
        Result := Items.GetNode(hItem);
end;

  TTVItemA = tagTVITEMA;
  TTVItemW = tagTVITEMW;
  TTVItem = TTVItemA;


  tagTVITEMA = packed record
    mask: UINT;
    hItem: HTreeItem;
    state: UINT;
    stateMask: UINT;
    pszText: PAnsiChar;
    cchTextMax: Integer;
    iImage: Integer;
    iSelectedImage: Integer;
    cChildren: Integer;
    lParam: LPARAM;
  end;

私有方法function TCustomTreeView.GetNodeFromItem(const Item: TTVItem): TTreeNode;
实现里，
        Result := Pointer(lParam)
方法procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY;
实现里，类似
      TVN_ENDLABELEDIT: Edit(PTVDispInfo(NMHdr)^.item);
多次涉及指针类型，而据我所知，X3平台不支持指针，所以不知类似的功能是怎么迁移过来的……

s1113

另:我现在这里发贴极为不便,得到公共上网区,能否邮件联系?我设置5分钟一收,专候您的答复,谢谢!!
s0181@tom.com

jiahaiming

哦，一般都是封装第三方控件实现的。

s1113

平台里DataTreeView的实现是封装的第三方控件么?而且这第三方控件就已经替换了指针类型为对象类型么?