delphi - 我在delphi中使用铬，但我发现我无法创建新的铬标签

Question

我正在使用 delphichromiumembedded 插件代替 TWebbrowser 在我的项目中，当我单击使用 TChrometabs 或 tpagecontrol.thanks 的 pagesheetwindow 时，我无法创建新选项卡。像这样的代码：

procedure TMainForm.ChromeTabs1ButtonAddClick(Sender: TObject;
  var Handled: Boolean);
var
  chrm: TChromium;
  CurrentTab1:TChromeTabs;
begin
  CurrentTab1:=TChromeTabs.Create(Self);
  chrm:=TChromium.Create(CurrentTab1);
  chrm.Align := alClient;
  chrm.Parent := TWinControl(CurrentTab1);
  chrm.DefaultUrl := 'about:blank';
  chrm.Load('http://www.google.com/');
end;

Answer 1

当用户单击“添加”按钮时，您不应该创建一个全新的TChromeTabs组件。您已经拥有其中之一。您甚至不需要创建新选项卡，因为该组件默认为您执行此操作。如果要手动创建新选项卡，则设置Handled := True为禁用默认行为，然后调用Sender.Tabs.Add. 它返回对新选项卡对象的引用。这在组件附带的示例应用程序中得到了演示；看ChromeTabs1ButtonAddClick方法。一旦您拥有该选项卡对象引用，您就可以随心所欲地操作它，例如通过在其上放置一个浏览器控件。