es geht darum in einem editierbaren webbrowser text einzufügen den ich mit der "2d-position" dann verschieben möchte. ich habe aber nur dieses javascript, wer mag mir dabei helfen das mit delphi zu machen?
Code:
function fnInsertText(oTxtId,oTxtFont) {
var oNode=document.createElement("div");
card.insertBefore(oNode);
oNode.style.fontFamily=oTxtFont;
oNode.innerText='Geben Sie bitte hier ihren Text ein';
giLastTxt++;
var iTempCount = "text" + giLastTxt;
oNode.id = iTempCount;
oNode.style.position='absolute';
oNode.setActive()
}
habs so versucht
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
HTMLDocument2Ifc: IHTMLDocument2;
fname, fnameb: string;
begin
HTMLDocument2Ifc := WebBrowser1.Document as IHTMLDocument2;
HTMLDocument2Ifc.execCommand('createElement', false, 'div');
end;