不行啊! procedure TFormMailGroup.sbtnUpdateClick(Sender: TObject); var NowNode: TTreeNode; begin NowNode := TreeView2.Selected; if NowNode = nil then Exit; if NowNode.Level <> 1 then Exit; TreeView2.ReadOnly := False; NowNode.EditText; end;根本就行不通。只能修改程序中刚增加的结点,不能修改其他结点。
吧.
procedure TFormMailGroup.sbtnUpdateClick(Sender: TObject);
var NowNode: TTreeNode;
begin
NowNode := TreeView2.Selected;
if NowNode = nil then Exit;
if NowNode.Level <> 1 then Exit;
TreeView2.ReadOnly := False;
NowNode.EditText;
end;根本就行不通。只能修改程序中刚增加的结点,不能修改其他结点。
NowNode.EditText;
没有参数。
TreeView2.Selected.EditText;
谢谢各位! TreeView2.ReadOnly := False;
SendMessage(TreeView2.Handle, TVM_EDITLABEL, 0, Longint(TreeView2.Selected.ItemId));