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.

zusammenfalten · markieren

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:

zusammenfalten · markieren

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

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

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

Forumregeln