Fehlermeldung "ELEMENT HAT KEIN FENSTER"

[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 !