PopupMenu verschwindet aus VirtualStringTree Property

[pszopp]

Hallo Community,

ich habe ein Problem mit einem VirtualStringTree.
Ich habe mir eine Klasse programmiert, die von "TCustomVirtualStringTree" abgeleitet wird.
Die Property "PopupMenu" lege ich in den PUBLISHED-Bereich, da diese Property später sichtbar sein soll.

Delphi-Quellcode:

  
  PUBLISHED
    PROPERTY Align;
    PROPERTY Color;
    PROPERTY Colors;
    PROPERTY Font;
    PROPERTY PopupMenu;
    PROPERTY TreeOptions;
  END;

Wenn ich nun im OI die PopupMenu-Property belege, klappt das.
Zur Laufzeit ist die PopupMenu-Property jedoch immer NIL.
Außerdem ist mir aufgefallen, dass nach einem Neustart von Delphi die PopupMenu.Property
immer leer ist, obwohl alle nötigen Infos in der Dfm-Datei vorhanden sind.
Wenn ich zur Designzeit per Kontextmenü die "Ansicht als Text" aufrufe,
und danach wieder in die "Ansicht als Formular" zurückspringe, ist die PopupMenu-Property
ebenfalls wieder leer.

Zur Info:
Ich überschreibe die DefineProperties Methode, da dort noch einige Info gespeichert werden sollen.

Delphi-Quellcode:

PROCEDURE TMyTree.DefineProperties(Filer : TFiler);
BEGIN
  INHERITED DefineProperties(Filer);

  Filer.DefineProperty('InternalTranslations',
                       Translations.ReadFromReader,
                       Translations.WriteToWriter,
                       True);
END; // DefineProperties

Wer ein ähnliches Problem schonmal gelöst hat oder weiterhelfen kann ist willkommen

Gruß,
pszopp

[pszopp]

Das ist ein PUSH

[Helmi]

häng doch mal deine Komponente als Anhang dran

[pszopp]

Ok, habe sie mal angehängt.
Sie wird aber so nicht kompilierbar sein, da die Komponente zu viele Libs benötigt,
die ich hier auch nicht veröffentlichen kann.

In uImcBaseTree wird von TCustomVirtualStringTree abgeleitet.
Die Komponente TImcChannels ist jene, die das PopupMenu "vergisst".

Gruß,
pszopp

[pszopp]

Mein letzter PUSH-Versuch!