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;