TWebBrowser und Enter-Taste Leerzeile vermeiden

[Kostas]

Hallo Zusammen,

ich habe diesen Code in mein Projekt eingebaut und es funktioniert fast.
Nachdem ich Enter betätige, wandert der Cursor um ein Zeichen nach rechts wenn ich ein weiteres Zeichen eingebe, dann wandert der Cursor wie erwarte in die nächste Zeile. Wenn ich nach dem Enter auf die Taste "Pfeil nach unten" klicke, wandert der Cursor in die nächste Zeile.
Ok dachte ich, dann sende ich eben ein VK_DOWN, doch das wird ignoriert. Hat jemand eine Idee?

https://www.delphipraxis.net/153404-...t2-events.html

Delphi-Quellcode:

procedure TfrmHTMLEdit.HTMLEditorOnKeyDown(Sender: TObject;
  EventObjIfc: IHTMLEventObj);
var
  selectionRange: IHtmlTxtRange;
  htmlDoc: IHTMLDocument2;
begin
  if not Assigned(HtmlEditor.Document) then
    Exit;

  htmlDoc := htmlEditor.Document as IHTMLDocument2;

  if htmlDoc.parentWindow.event.keyCode = VK_RETURN then
  begin
    selectionRange := htmlDoc.selection.createRange as IHtmlTxtRange;
    selectionRange.pasteHTML('<br>');
    htmlDoc.parentWindow.event.returnValue := False;
//    htmlDoc.parentWindow.event.keyCode := 0;
    htmlDoc.parentWindow.event.keyCode := VK_DOWN;
  end;
end;