Delphi Gecko SDK - 有没有人成功实现过这个+ XULRunner 1.9？

Question

我从 sf.net 签出了 d-gecko SDK ( http://sourceforge.net/projects /d-gecko/ ）。 我想用 Gecko (XULRunner) 1.9 尝试一下，但是每次运行简单的应用程序时，我都会在 stdcall 函数中遇到错误，指向 WebBrowser.Paint 行... 我的问题是 - 有人成功在 XULRunner 1.9 中运行 GeckoSDK Delphi 应用程序吗？ 如果是这样 - 怎么办？它对您来说开箱即用吗？

谢谢 米。

Answer 1

在网络浏览器首次尝试绘制自身之前，您需要导航到某个位置。因此，必须在组件可见之前调用 LoadURI()。

最简单的解决方案：在组件可见之前调用 LoadURI('about:blank')。

Answer 2

我也有这个问题。我刚刚中和了 baseWin.Repaint(True);
之后一切都很顺利

procedure TCustomGeckoBrowser.Paint;
var
  rc: TRect;
  baseWin: nsIBaseWindow;
begin
  if csDesigning in ComponentState then
  begin
    rc := ClientRect;
    Canvas.FillRect(rc);
  end else
  begin
    baseWin := FWebBrowser as nsIBaseWindow;
    //baseWin.Repaint(True);
  end;
  inherited;
end;