Listview: Spalten verschieben per drag and drop

[marlem]

öhm... habe ich nicht o ganz geblickt!
momentan probiere ich foplgendes:

Delphi-Quellcode:

procedure TFormKatHaendler.LvwWarenkorbFumoColumnDragged(Sender: TObject);
var
  i : integer;
begin
 //Wenn im Warenkorb was drin ist
  if LvwWarenkorbFumo.Items.Count > 0 then
      begin
      for i := 0 to LvwWarenkorbFumo.Columns.Count-1 do
          begin
          LvwWarenkorbFumo.Column[i].Index := LvwWarenkorbFumo.Column[i].Tag;
          end;
      Meldung('Im Warenkorb sind Artikel, deswegen können die Spalten nicht verschoben werden');
      exit;
      end
  else
    for i := 0 to LvwWarenkorbFumo.Columns.Count-1 do
      LvwWarenkorbFumo.Column[i].Tag := i;

end;

funzt aber nicht immer!