0

プロジェクトで TWebbrowser の代わりに delphichromiumembedded プラグインを使用していますが、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;
4

1 に答える 1