Habs selbst gelößt und umdefiniert..
Delphi-Quellcode:
var
TSplashItems : array[0..1] of string = ('Background', 'LabelInfo');
for IntI := Low(TSplashItems) to High(TSplashItems) do
TreeView.Items.AddChildObject(FNode,
TSplashItems[IntI],
pointer(StrToIntDef(TSplashItems[IntI],
0)));
Ein Enum nutzt mir da gar nichts denn ich bracuhe die werte als string
das war der ganze sinn der sache.
trotzdem danke..
gruss Emil