Drag&Drop mit TcxListBox und TcxTreeList

[Blubbel]

Soweit so gut. nun bekomme ich in der Zeile darunter eine Fehlermeldung

Zitat:

Im Projekt *.exe ist eine Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 0087A5A6 in Modul '*.exe'. Lesen von Adresse 00000000' aufgetreten.

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
      i := TcxListBox(Source).ItemIndex;   //hier bekomme ich eine Fehler meldung

      if (i >= 0) then
      begin

ok, hab im Code jetzt Statt

Delphi-Quellcode:

 lSource := string(Source.ClassName);
    if (Source is TcxDragControlObject) and (TcxDragControlObject(Source).Control is TcxListBox) then //hier geändert

das hier daraud gemacht

Delphi-Quellcode:

 lSource := string(Source.ClassName);
    if (Source is TcxDragControlObject) and (TcxDragControlObject(Source).Control is TcxTreeView) then //hier geändert

funktioniert soweit, dass es keine fehlermeldung gibt. Er zeigt mir noch immer an, dass die Nummer schon in der Gruppe ist. Ich werd ma gucken was ich selber herausbekommen kann. Freue mich trotzdem auf Vorschläge