TreeView-->OnEditing/OnEdited die Enter-Taste abfangen

[RWarnecke]

Hallo Hartmut,

ich habe jetzt mal ein bischen mit dem Code aus Deinem verlinkten Beitrag getestet und folgendes ist dabei rausgekommen :

Delphi-Quellcode:

procedure TForm16.OnAppMsg(var Msg: TMsg; var Handled: Boolean);
begin
  Handled := False;
  if Msg.message = WM_KEYDOWN then
  begin
    if (Msg.wParam = VK_RETURN) and (tv1.IsEditing) then
    begin
      if (tv1.Selected.Text = 'Neue Kategorie') then
      begin
        ShowMessage('Bitte einen neuen Namen eingeben !!' + #13#10 + tv1.Selected.Text);
        tv1.Selected.EditText;
      end;
      Handled := True;
    end;
  end;
end;

Das einzigste Problem, was im Moment noch besteht, wie komme ich an den aktuellen Text, der im Editiermodus im TreeView eingegeben ist Denn so wie ich es jetzt gemacht habe, hat er in der ShowMessage immer noch "Neue Kategorie".