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

[RWarnecke]

Hallo zusammen,

ich habe es mittlerweile hinbekommen. Mein Sourcecode sieht jetzt so aus :

Delphi-Quellcode:

procedure TForm16.OnAppMsg(var Msg: TMsg; var Handled: Boolean);
begin
  Handled := False;
  if Msg.message = WM_KEYDOWN then
  begin
    if (TV_1.IsEditing) and (TV_1.Tag = 0) then
    begin
      case Msg.wParam of
        VK_BACK, VK_SHIFT, VK_INSERT, VK_DELETE, 47..91, 96..109 :
        begin
          Handled := True;
          EditedTxt := EditedTxt + chr(Msg.wParam);
          NodeEdit := True;
        end;
      else
        if (Msg.wParam = VK_RETURN) and (Msg.lParam <> TVN_ITEMCHANGED) and (not NodeEdit) then
        begin
          ShowMessage('Bitte vergeben Sie einen Namen');
          NodeEdit := False;
          tmpNode.EditText;
        end;
      end;
      Handled := False;
    end;
  end;
end;

Jetzt habe ich dabei das Problem, dass ich mir mit dieser Funktion die Shortcuts für Copy&Paste abgeklemmt habe. Wie kann ich diese Shortcuts wieder aktivieren ?