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 ?