用代码创建TChromium实例

Question

我有一个问题，试图创建Delphi铬嵌入实例与代码

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

我的评论作为回答:

当从CreateWindowHandle初始化Browser属性时，Chromium.Browser尚未分配的原因是:

因为还没有做任何事情调用handlenneeded(它将调用CreateWindowHandle，当还没有分配)