Einzelnen Beitrag anzeigen

Benutzerbild von RWarnecke
RWarnecke

Registriert seit: 31. Dez 2004
Ort: Stuttgart
4.408 Beiträge
 
Delphi XE8 Enterprise
 
#19

Re: TreeView-->OnEditing/OnEdited die Enter-Taste abfange

  Alt 14. Feb 2009, 15:28
Ich habe nochmals rum und num probiert, komme aber auf keinen grünen Zweig. So sieht jetzt meine Procedure 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 then
    begin
      if (Msg.wParam > 47) and (Msg.wParam < 91) then // oder irgendeine andere Taste deiner Wahl
      begin
        Handled := True;
        EditedTxt := EditedTxt + chr(Msg.wParam);
      end
      else
      begin
        Handled := False;
        if (Msg.wParam = VK_RETURN) then
          if EditedTxt <> TV_1.Selected.Text then
          begin
            tmpNode.Text := EditedTxt;
            EditedTxt := '';
          end
          else
            tmpNode.EditText;
      end;
      Handled := False;
    end;
  end;
end;
Wenn ich jetzt nichts ändere nach dem Erstellen und dann auf Enter drücke, legt er mir eine leere Node an. Wie kann ich das Programm dazu bringen, dass die Node im Editiermodus bleibt, trotz das ich die Enter-Taste betätigt habe ?
Rolf Warnecke
App4Mission
  Mit Zitat antworten Zitat