delphi - 使用代码创建 TChromium 实例

Question

我在尝试使用代码创建 Delphi Chromium Embedded 实例时遇到问题

var
  Chromium: TChromium;
begin
  Chromium := TChromium.Create(TcxTabSheet1);
  Chromium.Parent := TWinControl(TcxTabSheet1);
  Chromium.Align := alClient;
  Assert(Assigned(Chromium.Browser), 'HERE! Why Browser is not assigned.');
  ...
end;

似乎浏览器属性是在什么时候初始化的

procedure TCustomChromium.CreateWindowHandle(const Params: TCreateParams);

叫做。

为什么我的代码中没有调用 CreateWindowHandle？

Answer 1

我的评论作为答案：

原因Chromium.Browser尚未赋值，当从 CreateWindowHandle 初始化 Browser 属性时，是：

因为尚未完成任何调用 HandleNeeded 的操作（当尚未分配任何内容时将调用 CreateWindowHandle）