Drag&Drop mit TcxListBox und TcxTreeList

[Furtbichler]

Blubbel: Der Wald. Die Bäume.

Delphi-Quellcode:

// So geht also der Zugriff auf die Listbox  
lst1 := TcxListBox(TcxDragControlObject(Source).Control); 
i := lst1.ItemIndex;
if (i >= 0) then begin
  lNumber := TphCSNumber(TcxListBox(Source).Items.Objects[i]); //Fehlermeldung
{ Wie geht nochmal der Zugriff auf die Listbox? *Mitdenfingernaufdemtischtrommel* }