ListBox-Einträge per Drag & Drop verschieben

[Lannes]

Hallo,

die Zeilen [42..43]:

Delphi-Quellcode:

  Selected[i]:=false;
  Selected[i-verschieben]:=true;

verursachen bei älteren Delphi-Versionen (im Test D3)eine Zugriffsverletzung.
Eine Zuweisung an Selected[x] bei der Einstellung MultiSelect := False ist die Ursache. In z.B. D2005 besteht das Problem nicht mehr.

Das Problem kann so behoben werden:

Delphi-Quellcode:

//...  
  begin
    Items.Move(i, i-verschieben);
    if Multiselect then
    begin 
      Selected[i]:=false; 
      Selected[i-verschieben]:=true;
    end
    else
      ItemIndex := i-verschieben;
  end
  else
  begin
//...

[edit=CalganX]Mfg, CalganX[/edit]