Bild im TWebbrowser Edit-Modus verschieben...

**horst**

Wer weiß wie ich ein Bild/Image im TWebbrowser Edit-Modus verschieben kann?
ich würde es ja am liebsten so machen, (s. code unten) aber das
funktioniert nur bei elementen (div), die per stylesheet mit absoluter positionierung definiert wurden.
Das Problem wäre dann ja das Einfügen neuer Bilder.
Wäre aber schon froh wenn ich die Bilder einfach mit der Maus verschieben könnte...

markieren

Delphi-Quellcode:

			 HTMLDocument2Ifc: IHTMLDocument2; 

begin 

  HTMLDocument2Ifc := WebBrowser1.Document as IHTMLDocument2; 

  (WebBrowser1.Document as IHTMLDocument2).designMode := 'On'; 

  HTMLDocument2Ifc.ExecCommand('2D-Position', false, true); 

  HTMLDocument2Ifc.ExecCommand('LiveResize', true, true);

**APP**

Hallo Horst,
ich habe hier ein HTML-Bookmarklet,

markieren

Code:

			<HTML>

<SCRIPT LANGUAGE=javascript>

[color=red]var __w=document.body.contentEditable = 'true'; [/color]

document.designMode='on'; 

[color=red]void 0;[/color]

[color=red]if(__w!=null)document.write(__w);[/color]

</SCRIPT>

</HTML>

das z.B. mit der DP Webseite funktioniert, wo ich im Code zumindest keine DIV Tags entdecken konnte.
Ich bin kein HTML-Profi, aber vielleicht hilft es Dir weiter...

**horst**

Danke für deine Antwort,
(WebBrowser1.Document as IHTMLDocument2).designMode := 'On'; verwende ich ja schon.
Die DIV-Tags sind nur nötig wenn:
HTMLDocument2Ifc.ExecCommand('2D-Position', false, true); benutzt wird.
Habe den Fehler gefunden...
hatte den EmbeddetWebbrowser benutzt, der kann das wohl irgendwie nicht.
Grüße Horst

Bild im TWebbrowser Edit-Modus verschieben...

Bild im TWebbrowser Edit-Modus verschieben...

Re: Bild im TWebbrowser Edit-Modus verschieben...

Re: Bild im TWebbrowser Edit-Modus verschieben...

Forumregeln