在Delphi中的TWebBrowser中使用jQuery UI框架

我正在开发一个应用程序,许多UI元素将在TWebBrowser中.所以我想我添加一个jQuery UI让我很容易.

我能够插入JQuery和UI javascript文件,谢谢
http://www.jasontpenny.com/blog/2008/11/21/jquery-in-a-twebbrowser-in-a-self-contained-delphi-app/

我被困在样式表中,我做到了

doc2 := Web.Document as IHTMLDocument2;
  doc2.createStyleSheet(FileProtocol(AppPath( 'templates\css\' + JQueryUITheme + '\jquery-ui-1.7.1.custom.css')),0);
  // FileProtocol and AppPath are to return a current application path and converted to FileProtocol URL format.

Javascripts跑得很好,但我无法让图像工作.我也试过Stringreplace所有图片引用,但没有结果.

stylesheet.cssText := Stringreplace(stylesheet.cssText,'url(images/','url(' + FileProtocol(AppPath('templates/css/' +
    JQueryUITheme + '/images/')),[rfreplaceAll]);

有人试过类似的东西？

function FileProtocol(const s: String): String;
begin
   Result := 'file:///' + Stringreplace(s,'\','/',[rfreplaceAll]); // '
end;

function AppPath(const s: String): String;
begin
   Result := IncludeTrailingPathDelimiter( ExtractFilePath(Forms.Application.ExeName) ) + s;
end;