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

jiahaiming

平台的datatreeview是我们自己写的控件。
平台对第三方控件的调用时，要求接口中不能包含指针。控件内部的指针操作是没有问题的。

s1113

能不能把datatreeview的方法
procedure Edit(const Item: TTVItem); override;
实现代码贴出来？

另：如果一定要在这里回帖反馈问题交流的话，只能每天晚上我就前一问题回复一次了，因为目前白天在公司发帖实在不方便。

jiahaiming

“如果什么都不做同时确认，就会把之前的节点显示名都给清空了，级联清空到DisplayField字段”
是否楼主写的代码有问题？

s1113

就是我的代码有问题，所以才要你们关于procedure Edit(const Item: TTVItem); override;实现的方法呀？

后面的你们不用看，你只看“如果什么都不做同时确认，就会把之前的节点显示名都给清空了”，清空不清空DisplayField字段是我自己控制的。

我问题是取Item.pszText赋给Selected.Text，当节点名称有修改时没问题，但当节点名称没有任何修改时，从重命名编辑状态确认回到浏览状态时，Item.pszText取到的为“空字符串”，才会有下面


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

参数的介绍没有呀？
########################

这个问题，不知道是不是我还没把问题解释明白？

s1113

最初由 s1113 发布
[B]能不能把datatreeview的方法
procedure Edit(const Item: TTVItem); override;
实现代码贴出来？

另：如果一定要在这里回帖反馈问题交流的话，只能每天晚上我就前一问..

以下省略...... [/B]

这样的沟通效率真正让我体会一回“隔靴搔痒”
真希望你们的技术支持能够灵活一些，不然一边是公司的规定，一边是你们的墨守成规，可苦了兄弟我呀！~~

jiahaiming

Generates an OnEdited event.

procedure Edit(const Item: TTVItem); dynamic;

Description

Edit is called automatically when the user edits the text of a tree view node. The Item parameter is the record supplied by the Windows control that identifies the node that was edited and the new value of its text. Edit unpacks this information into the parameters of an OnEdited event handler, and allows the event handler to change the value of the node抯 text.
楼主，关于edit方法的说明，在delphi帮助和源码里都有说明的。

jiahaiming

把你的代码贴出来看看吧。

s1113

TBtTreeView = class(TPublishedTreeView)
  ……
  protected
    { Protected declarations }
    procedure Edit(const Item: TTVItem); override;
  ……
end;

procedure TBtTreeView.Edit(const Item: TTVItem);
var
  bEdit: Boolean;
begin
  inherited Edit(Item);
  bEdit := False;
  if (DataSet.State in [TDataSetState.dsBrowse]) then
  begin
    bEdit := True;
    DataSet.Edit;
  end;
  DataSet.FieldByName(DisplayField).AsString :=
    StrUtils.IfThen(Item.pszText='', DataSet.FieldByName(DisplayField).AsString,
           Item.pszText);
  if bEdit then
    DataSet.Post;
end;

jiahaiming

楼主，经测试发现：
在平台里，覆盖了Edit方法后，会导致Node.text被清空，应该是个bug。
建议：
利用Treeview的OnEdited和OnCancelEdit事件来实现你的需求

s1113

OnCancelEdit好像跟确认的情况没什么关系。

OnEdited也不行，算了，结贴吧。

知道了Bug也算是收获，感谢版主jiahaiming一直以来的热心和耐心！