Drag&Drop mit TcxListBox und TcxTreeList

[Furtbichler]

Du siehst den Wald nicht mehr

Delphi-Quellcode:

if (Source is TcxDragControlObject) and (TcxDragControlObject(Source).Control is TcxListBox) then 
    begin
      TheListBox := TcxListBox(TcxDragControlObject(Source).Control);
      i := TheListBox.ItemIndex;

[Blubbel]

Danke!! Jetzt meckert er weiter ich schau mal was ich tun kann... wenn ich gar nicht mehr weiter weiß schrei ich ganz laut

Hier ist der Schrei!!!

Delphi-Quellcode:

  if Assigned(Source)  then
  begin
    lSource := string(Source.ClassName);
    if (Source is TcxDragControlObject) and (TcxDragControlObject(Source).Control is TcxListBox) then //hier geändert
    begin
      lst1 := TcxListBox(TcxDragControlObject(Source).Control); //Hier auch geändert
      i := lst1.ItemIndex;

      if (i >= 0) then
      begin
        lNumber := TphCSNumber(TcxListBox(Source).Items.Objects[i]); //Fehlermeldung
        {Im Projekt *.exe ist eine Exception der Klasse EAccessViolation mit der Meldung
        'Zugriffsverletzung bei Adresse 0087A5DE in Modul '*.exe'. Lesen von Adresse 00000280' aufgetreten}
        if Assigned(lNumber) then
        begin

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