Fehlermeldung "ELEMENT HAT KEIN FENSTER"

[bernhard_LA]

ich habe eine eigene Komponente um diese wenigen Zeilen Code erweitert und bekomme die lustige Fehlermeldung von oben wenn ich die Komponente in einem neuen Projekt auf ein Form ziehe.

Delphi-Quellcode:

 TCheckListBox2 = class(TCheckListBox)
  private

    FSelectedItems: TStringList; 
    function getSelectedItems: TStringList;


      public
    { Public-Deklarationen }
    constructor create(AOwner: TComponent); override;
    destructor destroy; override;



  property SelectedItems: TStringList read getSelectedItems;
  end;




constructor TCheckListBox2.create(AOwner: TComponent);
begin
  inherited create(AOwner);

  FSelectedItems := TStringList.create;
end;

destructor TCheckListBox2.destroy;
begin
  FSelectedItems.Free;
  inherited;
end;

function TCheckListBox2.getSelectedItems: TStringList;
var
  i: integer;
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;

Wenn ich die Property auskommentiere kann ich die Komponente auf einem Form platzieren.

[Aviator]

An welcher Stelle wird SelectedItems denn instanziiert? Kann es sein, dass hier ein wenig Code fehlt? Des Weiteren solltest du die Zeile if (self.Checked[i] = true) then ändern in if (self.Checked[i]) then . Auf True oder False sollte nicht geprüft werden. Gibt hier auch einige Themen in der DP darüber.

[bernhard_LA]

im Constructor der Klasse , habe #1 ergänzt

[stahli]

Tust Du vielleicht noch mehr?
Zeig mal die komplette Unit.

"Kein Fenster" bekommt man eigentlich m.E., wenn die Komponente gezeichnet werden soll und sie noch keinen Parent hat.

Zwei Vorschläge in´s Blaue...

Delphi-Quellcode:

function TCheckListBox2.getSelectedItems: TStringList;
var
   i: integer;
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;

  end;  
 result := FSelectedItems;
end;

oder

Delphi-Quellcode:

procedure TCheckListBox2.Paint;
begin
  if Assigned(FSelectedItems) then
    inherited;
end;

Vielleicht bringt Dich das ja zumindest irgendwie weiter...

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