TWebbrowser mit eigenen Glyphs im Designmode

[marabu]

Bei mir funktioniert es. Allerdings halte ich mich auch an die Dokumentation und gebe einen URL für das image an. Solltest du vielleicht auch mal probieren (file:///).

Delphi-Quellcode:

procedure TDemoForm.WebBrowserDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  wb2: IWebBrowser2;
  doc2: IHTMLDocument2;
  oct: IOleCommandTarget;
  vIn: OleVariant;
  pg: PGUID;
begin
  if Succeeded(pDisp.QueryInterface(IID_IWebBrowser2, wb2)) then
  begin
    doc2 := wb2.Document as IHTMLDocument2;
    doc2.designMode := 'On';
    doc2.execCommand('2D-Position', false, true);
    doc2.execCommand('MultipleSelection', false, true);
    doc2.execCommand('LiveResize', false, true);
    vIn := '%%input^^' 
         + '%%http://www.delphipraxis.net/images/smiles/icon_biggrin.gif^^'
         + '%%0^^%%3^^%%0^^%%4^^%%15^^%%15^^%%15^^%%15^^**' ;
    oct := wb2 as IOleCommandTarget;
    New(pg);
    pg^ := CGID_MSHTML;
    oct.Exec(pg, 2337, OLECMDEXECOPT_DODEFAULT, vIn, EmptyParam);
    Dispose(pg);
  end;
end;

marabu