Fehlermeldung "ELEMENT HAT KEIN FENSTER"

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