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* }

[Blubbel]

Ich geh jetzt sterben...

[Furtbichler]

Sei nicht so theatralisch. Das hier reicht fürs erste:

[Blubbel]

Egal wie ich es hindrehe und verändere es kommt immer an der selben Stelle eine Fehlermeldung...

Ich übersehe mit Sicherheit nur eine klitze kleine Kleinigkeit...?

Sry, dass ich so nerve aber irgendwie will das alles einfach nicht, zumal ich mit den Tcx-Komponenten noch nie gearbeitet hab.

Nun hab ichs... das Assigned(lNumber) gibt mir jetzt ein false zurück. Mal gucken ob ich es hinbekomme.

[Blubbel]

Ich hab das Rätsel gelöst.

Danke für eure Hilfe.