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 :-D

Gruß,
pszopp

[pszopp]

Das ist ein PUSH :thumb:

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

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

Gruß,
pszopp

[pszopp]

Mein letzter PUSH-Versuch! :lol: