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;