also mit dem anschliessenden
S:=Node.Text;
bin ich voll zufrieden, mit der Message kommt es auf nen Versuch an ob die vor oder nach dem Rücksprung in die Procedure edit(protected) des treeviews abgearbeitet wird.
Delphi-Quellcode:
unit ComCtrls;
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;