Komponentenentwicklung Problem mit Create

[blablab]

was ich auch ein bisschen komisch finde ist, so bekomme ich einen Fehler wenn ich die Komponente ins Fenster reinklick

Delphi-Quellcode:

constructor TDirectoryTree.Create(AOwner: TComponent);
var tmpNode: TTreeNode;
begin
   inherited Create(AOwner);

   if csDesigning in Self.ComponentState then begin
      Try
            imgList := TImageList.Create(AOwner);
            messagebeep(16);
            imgList.Masked := False;
            imgList.BkColor := Color;
            imgList.AddIcon(GetShellIcon(NAME_DESKTOP));
            Images := imgList;


            //Desktop hinzufügen
            tmpNode := Items.Add(nil, GetShellDescription(NAME_DESKTOP));
            tmpNode.ImageIndex := ICON_DESKTOP;
            tmpNode.SelectedIndex := ICON_DESKTOP;
            tmpNode.StateIndex := -1;
      Finally
         Try
            imgList.Free;
         Except
         End;
      End;
   end;
end;

So aber nicht:

Delphi-Quellcode:

constructor TDirectoryTree.Create(AOwner: TComponent);
var tmpNode: TTreeNode;
begin
   inherited Create(AOwner);

   if csDesigning in Self.ComponentState then begin
      Try
         Try
            imgList := TImageList.Create(AOwner);
            messagebeep(16);
            imgList.Masked := False;
            imgList.BkColor := Color;
            imgList.AddIcon(GetShellIcon(NAME_DESKTOP));
            Images := imgList;


            //Desktop hinzufügen
            tmpNode := Items.Add(nil, GetShellDescription(NAME_DESKTOP));
            tmpNode.ImageIndex := ICON_DESKTOP;
            tmpNode.SelectedIndex := ICON_DESKTOP;
            tmpNode.StateIndex := -1;
         Except
         End;
      Finally
         imgList.Free;
      End;
   end;
end;

Sobald die Komponente dann aber in meiner Form ist geht es auch ohne Trys und die Node wird einwandfrei gezeichnet.

[blablab]

Ich hab den Fehler jetzt gefunden!
Vielen Dank für eure Unterstützung!

[fkerber]

Hi!

Es wäre schön, wenn du uns noch schreiben würdest, was denn der Fehler war. Wenn jemand mal vor einem ähnlichen Problem steht, kann er damit dann vllt. schon eine Lösung für sich finden.


Ciao, Frederic

[mleyen]

Der Fehler liegt mal wieder am Copy&Paste:

Zitat von blablab:

Delphi-Quellcode:

if csDesigning in Self.ComponentState then
begin
// ...

Jetzt erzeugt er alle Objekte im Designmode, anstatt zur Laufzeit des Programms.
(Umgekehrt wäre es besser, pack mal ein not um die IF-Abfrage)

[blablab]

Ich glaub das Problem kommt net so häufig vor...

Also, ich hab ne Komponente Entwickelt in der Datei Units/DirectoryTree.pas und ich hab ein anderes Programm benutzt um diese Komponente zu testen und zwar Test/Test.exe. Die Komponente aus Units/DirectoryTree.pas hab ich installiert so dass sie bei Delphi in der KomponentenListe war. Dummerweise hatte ich noch eine zweite DirectoryTree.pas im Verzeichnis tests, wo mein Testprogramm war (fragt mich nicht wie die da reingekommen ist). Und dadurch bekam ich ein etwas komisches verhalten: Zur Entwicklungszeit hat Delphi die Datei Units/DirectoryTree.pas benutzt und zur Laufzeit hat es Tests/DirectoryTree.pas benutzt. In Tests/DirectoryTree.pas war noch eine alte Version die nichts gemacht hat und ich hab die ganze Zeit an Units/DirectoryTree.pas rumprogrammiert und mich gewundert warum sich das Verhalten nur zur Entwicklungszeit und nicht zur Laufzeit verändert. Naja, und da saß ich eben den ganzen Tag dran...

Ich dachte halt die ganze Zeit ich hätte Unsinn prorammmiert. Und als ihr mir dann gesagt habt, so wie ich es programmiert hab müsste es eigentlich funktionieren, hab ich zum ersten mal nach dem Fehler wo anders als im Programmtext gesucht. Deshalb nochmal Danke!

Allerdings der Fehler wie ich ihn zuletzt beschrieben hab besteht immernoch und wenn ich zur Entwicklungszeit mit einer ImageList arbeite dann zeigt mir Delphi auch immernoch die ImageList-Komponente im Formular an...

[oki]

Zitat:

Allerdings der Fehler wie ich ihn zuletzt beschrieben hab besteht immernoch und wenn ich zur Entwicklungszeit mit einer ImageList arbeite dann zeigt mir Delphi auch immernoch die ImageList-Komponente im Formular an...

kein Wunder, der Fehler liegt hier:
imgList := TImageList.Create(AOwner); Da du im Konstruktor für das kreieren deiner Imagelist AOwner verwendest ist somit der Besitzer das Fenster, auf dem du deine Komponente platzierst.
Mach einfach das:
imgList := TImageList.Create(self); und alles ist bestens.

Gruß oki