Komponentenentwicklung Problem mit Create

[mleyen]

Delphi-Quellcode:

constructor TDirectoryTree.Create(AOwner: TComponent);
var
  tmpNode: TTreeNode;
begin
  inherited Create(AOwner);
  if not (csDesigning in Self.ComponentState) then
  begin
      imgList := TImageList.Create(AOwner);
      imgList.Masked := False;
      imgList.BkColor := Color;
      imgList.AddIcon(GetShellIcon(NAME_DESKTOP));
      Images := imgList;

      tmpNode := Items.Add(nil, GetShellDescription(NAME_DESKTOP));
      tmpNode.ImageIndex := ICON_DESKTOP;
      tmpNode.SelectedIndex := ICON_DESKTOP;
      tmpNode.StateIndex := -1;
  end;
end;