Chromium - Anwendung schließen->Systemfehler. Code: 1400. Ungültiges Fensterhandle

[Hobbycoder]

Hi,
ich versuche schon eine geraume Zeit den Fehler zu finden, aber es gelingt mir nicht.

Mit folgender Procedure erstelle ich ein TabSheet mit einer Chromium-Componente drauf. Das funktioniert fehlerfrei.

Delphi-Quellcode:

procedure TLMCClientForm.LoadPageInNewTab(TargetTabIndex: Integer; Url: string);
var
  TempWindowParent: TCEFWindowParent;
  TempChromium     : TChromium;
  pgc: TPageControl;
  ts: TTabSheet;
  Panel: TPanel;
  Button: TButton;
begin
  if FindPageControl(pgcClient.Pages[TargetTabIndex], pgc) then
  begin
      ts:=TTabSheet.Create(self);
      ts.Caption:='Auftrag';
      ts.PageControl:=pgc;
      //pgc.ActivePage:=ts;
      Panel:=TPanel.Create(ts);
      Panel.Parent:=ts;
      Panel.Caption:='';
      Panel.Align:=alTop;
      Button:=TButton.Create(ts);
      Button.Parent:=Panel;
      Button.Width:=Panel.Height-2;
      Button.Align:=alRight;
      Button.Caption:='X';
      Button.Tag:=ts.PageIndex;
      Button.OnClick:=TabCloseButtonClick;

      TempWindowParent:=TCEFWindowParent.Create(ts);
      TempWindowParent.Parent:=ts;
      TempWindowParent.Align:=alClient;
      TempChromium:=TChromium.Create(ts);
      TempChromium.DefaultUrl:=Url;
      TempChromium.OnAfterCreated:=Chromium_OnAfterCreated;
      TempChromium.CreateBrowser(TempWindowParent, '');
  end;
end;

Beim Beenden jedoch erhalte ich folgende Fehlermeldung:

"Systemfehler. Code: 1400. Ungültiges Fensterhandle"

Kommentiere ich der erzeugen von TempWindowParent und TempChromium aus, so kommt diese Fehlermeldung nicht. Ich habe auch schon versucht als Owner self zu verwenden, was aber zum gleichen Ergebnis führt.

Das oben genannte TabSheet wird auf das PageControl gesetzt, welches ich in dieser Procedure erzeuge:

Delphi-Quellcode:

procedure TLMCClientForm.CreateTabBrowser(GUID: TGUID; Name: string);
var
  ts: TTabSheet;
  pgc: TPageControl;
  TempWindowParent: TCEFWindowParent;
  TempChromium     : TChromium;
begin
      ts:=TTabSheet.Create(Self);
      ts.Caption:=Name;
      ts.PageControl:=self.pgcClient;

      pgc:=TPageControl.Create(ts);
      pgc.Parent:=ts;
      pgc.Align:=alClient;

      ts:=TTabSheet.Create(pgc);
      ts.Caption:='Kalender';
      ts.PageControl:=pgc;

      TempWindowParent:=TCEFWindowParent.Create(ts);
      TempWindowParent.Parent:=ts;
      TempWindowParent.Align:=alClient;
      TempChromium:=TChromium.Create(ts);
      TempChromium.CreateBrowser(TempWindowParent, '');

      ts:=TTabSheet.Create(pgc);
      ts.Caption:='Map';
      ts.PageControl:=pgc;

      TempWindowParent:=TCEFWindowParent.Create(ts);
      TempWindowParent.Parent:=ts;
      TempWindowParent.Align:=alClient;
      TempChromium:=TChromium.Create(ts);
      TempChromium.CreateBrowser(TempWindowParent, '');
end;

das pdcClient ist bereits zur Entwurfszeit vorhanden.

Interessanterweise passiert der Fehler nicht bei den beiden Chromium-Componenten, die in der Procedure CreateTabBrowser erzeugt werden. Solange ich die Procedure LoadPageInNewTab nicht aufrufe erhalte ich auch keinen Fehler.

Aber wo ist der Unterschied? Bzw. wo mach ich den Fehler?

Nochmal zur Erklärung: Das PageControl pgcClient ist zur Entwurfzeit bereits vorhanden. Darin sollen TabSheet zu verschiedenen Themen erzeugt werden (z.B: "Opel","Ford","VW"), die selbst wiederum jeweils ein PageControl enthalten, welches 2 automatisch erzeugte Tabs "Kalender" und "Maps" enthalten. Das wird in der Procedure CreateTabBrowser erzeugt. Soweit funktioniert alles.
Um nun weitere Tabs z.B. "Auftrag" unter "Opel" oder "Ford" zu erzeugen dient die Procedure LoadPageInNewTab . Ab da entsteht o.g. Fehlermeldung.

Delphi-Version: 10.1 Berlin