Fehlermeldung "ELEMENT HAT KEIN FENSTER"

[Luckie]

Warum ist das in "Programmieren allgemein"? Handelt es nicht um Delphi? Oder um was für ein Framework geht es?

[jaenicke]

Mit der Komponente wie du sie gepostet hast funktioniert es bei mir mit XE8 problemlos. Da muss noch mehr sein.

Hast du denn einmal in der Fehlermeldung auf Details geklickt? Wie sieht denn der Stacktrace dort aus?

[bernhard_LA]

ich habe hier den Stack Trace nur leider bin ich hier mit meinem Latein am besagten Ende

Delphi-Quellcode:

[50335EBA]{vcl160.bpl  } Vcl.Controls.TWinControl.CreateWnd (Line 9307, "Vcl.Controls.pas" + 13) + $3B
[00450073]{bds.exe     } Sanctuary.LicenseSelectionProperties.TLicenseSelectionProperties.Create (Line 45, "Sanctuary.LicenseSelectionProperties.pas" + 0) + $F
[5035A009]{vcl160.bpl  } Vcl.StdCtrls.TCustomListBox.CreateWnd (Line 6798, "Vcl.StdCtrls.pas" + 3) + $2
[5067FDC9]{vclx160.bpl } Vcl.CheckLst.TCheckListBox.CreateWnd (Line 240, "Vcl.CheckLst.pas" + 1) + $2
[5033638E]{vcl160.bpl  } Vcl.Controls.TWinControl.CreateHandle (Line 9477, "Vcl.Controls.pas" + 3) + $4
[5033A26C]{vcl160.bpl  } Vcl.Controls.TWinControl.HandleNeeded (Line 12024, "Vcl.Controls.pas" + 4) + $4
[5033A279]{vcl160.bpl  } Vcl.Controls.TWinControl.GetHandle (Line 12030, "Vcl.Controls.pas" + 1) + $2
[50358D67]{vcl160.bpl  } Vcl.StdCtrls.TListBoxStrings.GetCount (Line 6059, "Vcl.StdCtrls.pas" + 1) + $C
[50359946]{vcl160.bpl  } Vcl.StdCtrls.TCustomListBox.GetCount (Line 6499, "Vcl.StdCtrls.pas" + 3) + $8
[1CF92D28]{TchecklistBox2.bpl} CheckListBox2.TCheckListBox2.getSelectedItems$qqrv (Line 227, "CheckListBox2.pas" + 2) + $5
[5008C6A5]{rtl160.bpl  } System.TypInfo.GetOrdProp (Line 2018, "System.TypInfo.pas" + 27) + $0
[20FCFF8E]{designide160.bpl} ComponentDesigner.FindComponentDependencies (Line 3755, "ComponentDesigner.pas" + 15) + $9
[20FD012D]{designide160.bpl} ComponentDesigner.TComponentRoot.UpdateDependencies (Line 3789, "ComponentDesigner.pas" + 7) + $E
[20FD7B6F]{designide160.bpl} ComponentDesigner.TComponentDesigner.UpdateRootDependents (Line 6468, "ComponentDesigner.pas" + 2) + $25
[20FD41B1]{designide160.bpl} ComponentDesigner.TComponentRoot.ValidateRename (Line 5259, "ComponentDesigner.pas" + 43) + $8
[500B4D25]{rtl160.bpl  } System.Classes.TComponent.ValidateRename (Line 12851, "System.Classes.pas" + 6) + $15
[51D404ED]{vcldesigner160.bpl} VCLSurface.TVclDesignSurface.ValidateRename (Line 3859, "VCLSurface.pas" + 2) + $D
[50449A08]{vcl160.bpl  } Vcl.Forms.TCustomForm.ValidateRename (Line 4114, "Vcl.Forms.pas" + 3) + $10
[500B50D6]{rtl160.bpl  } System.Classes.TComponent.SetName (Line 12934, "System.Classes.pas" + 6) + $A
[5033106B]{vcl160.bpl  } Vcl.Controls.TControl.GetText (Line 6092, "Vcl.Controls.pas" + 2) + $6
[50330EA5]{vcl160.bpl  } Vcl.Controls.TControl.SetName (Line 5967, "Vcl.Controls.pas" + 5) + $5
[20FCC9D7]{designide160.bpl} ComponentDesigner.TComponentRoot.DoCreateComponent (Line 2393, "ComponentDesigner.pas" + 42) + $2F
[20FD1E9A]{designide160.bpl} ComponentDesigner.TComponentRoot.CreateCurrentComponent (Line 4442, "ComponentDesigner.pas" + 2) + $32
[20FE9D72]{designide160.bpl} Surface.TDesignSurface.CreateItem (Line 188, "Surface.pas" + 1) + $11
[20FA041E]{designide160.bpl} Designer.TDesigner.DoDragCreate (Line 772, "Designer.pas" + 1) + $F
[20FA0C04]{designide160.bpl} Designer.TDesigner.DragEnd (Line 938, "Designer.pas" + 19) + $3
[20FA3260]{designide160.bpl} Designer.TDesigner.MouseUp (Line 1725, "Designer.pas" + 1) + $2
[51D3E261]{vcldesigner160.bpl} VCLSurface.MouseEvent (Line 2915, "VCLSurface.pas" + 45) + $11
[5003D25B]{rtl160.bpl  } System.TMonitor.Exit (Line 14614, "System.pas" + 2) + $7
[51D3EE3F]{vcldesigner160.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3176, "VCLSurface.pas" + 48) + $6
[5003C866]{rtl160.bpl  } System.@IsClass (Line 13351, "System.pas" + 1) + $8
[5033271B]{vcl160.bpl  } Vcl.Controls.TControl.WndProc (Line 7117, "Vcl.Controls.pas" + 4) + $21
[50336B3B]{vcl160.bpl  } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 9745, "Vcl.Controls.pas" + 1) + $9
[503372F3]{vcl160.bpl  } Vcl.Controls.TWinControl.WndProc (Line 9976, "Vcl.Controls.pas" + 152) + $6
[5044A021]{vcl160.bpl  } Vcl.Forms.TCustomForm.WndProc (Line 4344, "Vcl.Forms.pas" + 201) + $5
[51D478BF]{vcldesigner160.bpl} VCLFormContainer.TControlSizer.ControlWndProc (Line 311, "VCLFormContainer.pas" + 33) + $C
[50336948]{vcl160.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9689, "Vcl.Controls.pas" + 3) + $6
[500B6890]{rtl160.bpl  } System.Classes.StdWndProc (Line 13878, "System.Classes.pas" + 8) + $0
[50454598]{vcl160.bpl  } Vcl.Forms.TApplication.CancelHint (Line 10993, "Vcl.Forms.pas" + 6) + $7
[50453213]{vcl160.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 10164, "Vcl.Forms.pas" + 23) + $1
[50453256]{vcl160.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 10194, "Vcl.Forms.pas" + 1) + $4
[50453595]{vcl160.bpl  } Vcl.Forms.TApplication.Run (Line 10332, "Vcl.Forms.pas" + 26) + $3

und mein Delphi XE 7 liefert diese Medlung beim Compile der Komponente, installieren geht aber Komponente über ein Form ziehen liefert ebenfalls den fehler wie XE 2

Delphi-Quellcode:

[dcc32 Hinweis] CheckListBox2.pas(61): H2365 Schreibweise der Überschreiben-Methode TCheckListBox2.create muss exakt ihrem Vorfahren TCheckListBox.Create entsprechen
[dcc32 Hinweis] CheckListBox2.pas(62): H2365 Schreibweise der Überschreiben-Methode TCheckListBox2.destroy muss exakt ihrem Vorfahren TCheckListBox.Destroy entsprechen

[jaenicke]

Bei dir wird GetSelectedItems beim Erstellen der Komponente aufgerufen. Das funktioniert aber nicht, da die Komponente dort noch keinen Parent hat.
Bei mir wird das jedoch nicht aufgerufen.

Entweder hast du doch noch mehr im Quelltext stehen oder es liegt vermutlich an einem Addon. Passiert der Fehler auch, wenn du Delphi mit -pTest als Parameter startest?

Zitat von bernhard_LA:

und mein Delphi XE 7 liefert diese Medlung beim Compile der Komponente, installieren geht aber Komponente über ein Form ziehen liefert ebenfalls den fehler wie XE 2

Delphi-Quellcode:

[dcc32 Hinweis] CheckListBox2.pas(61): H2365 Schreibweise der Überschreiben-Methode TCheckListBox2.create muss exakt ihrem Vorfahren TCheckListBox.Create entsprechen
[dcc32 Hinweis] CheckListBox2.pas(62): H2365 Schreibweise der Überschreiben-Methode TCheckListBox2.destroy muss exakt ihrem Vorfahren TCheckListBox.Destroy entsprechen

Hast du den Fehler denn einmal korrigiert?
Create und Destroy klein zu schreiben ist nun einmal keine gute Idee...

[stahli]

Vielleicht solltest Du auch mal das Package deinstallieren, bereinigen und neu installieren. Vielleicht arbeitet die IDE noch mit einem älteren Stand...

(Bei jeder Änderung, die Auswirkungen zur Designtime haben kann musst Du die Komponente neu installieren)

[luisk]

probier`s mal ohne override hinterm Konstruktor so wie hier:
http://www.delphi-treff.de/object-pa...und-freigeben/

[bernhard_LA]

danke für die Diskussion , so scheint es zu spielen :

Delphi-Quellcode:

function TCheckListBox2.getSelectedItems: TStringList;
var
  i: integer;
begin
  [B]if assigned(self.Parent) then[/B]
  begin
    if assigned(FSelectedItems) then
    begin
      FSelectedItems.Clear;
      for i := 0 to self.count - 1 do
      begin
        if (self.Checked[i] = true) then
        begin
          FSelectedItems.Add(self.Items[i]);
        end;
      end;
      result := FSelectedItems;
    end;
  end;
end;

bin jetzt am testen !