Fehlermeldung "ELEMENT HAT KEIN FENSTER"

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