markiertes item eines listview per button bewegen

[Hagen]

hallo :spin: wie kann ich ein markiertes item eines listview per button bewegen. stelle mir das so vor: habe zwei buttons, einen für hoch und einen anderen, um das item nach unten zu bewegen. wer mag mir dabei helfen? gruss n.hagen

[Daniel B]

Hallo und herzlich Willkommen im Forum!

Schau Dir mal IntemIndex der ListView an.

Grüsse, Daniel :hi:

[Hagen]

vielen dank für deinen willkommensgruß. :spin:
ich schau mir das mal an

[Daniel B]

Hallo,

ich habe es nach VCL-Komponenten verschoben.

Grüsse, Daniel :hi:

[Hagen]

hallo daniel...
magst du mir sagen was daran falsch ist?
gruß hagen

Delphi-Quellcode:

procedure TForm1.runterClick(Sender: TObject);
var
i:integer;
begin
For i:=0 to ListView1.Items.Count-1 Do
  If ListView1.Items[i].Selected then
  begin
   ListView1.ItemIndex :=  i +1 ;
end;
end;

[Hagen]

das funktuioniert, allerdings werden die items nicht verschoben.

Delphi-Quellcode:

procedure TForm1.raufClick(Sender: TObject);
var
i:integer;
begin
For i:=0 to ListView1.Items.Count-1 Do
  If ListView1.Items[i].Selected then
  begin
   ListView1.ItemIndex :=  i -1 ;
end;
 end;

[Christian Seehase]

Moin Hagen,

der ListView kennt die Eigenschaft ItemIndex nicht.
Ich denke mal, dass Daniel, das mit der ListBox verwechselt hat.

Den Index der selektierten Zeile solltest Du mit

Delphi-Quellcode:

ListBox1.Selected.Index

bekommen, aber:
Es ist eine Read Only Eigenschaft, ihr kann also kein Wert zugwiesen werden.

[Hagen]

ich kriege das mit dem verschieben nicht hin, zeigt mir das jemand mal?

[Darty]

schau Dir dass hier mal an .. http://www.tipps.delphi-source.de/ob...010702-1.shtml
Ist ein Beispiel bei einer Listbox

[Hagen]

@Christian Seehase

Zitat:

der ListView kennt die Eigenschaft ItemIndex nicht.

das stimmt nicht, soweit ich das sehen kann...
das funktioniert soweit ganz gut

Delphi-Quellcode:

ListView1.ItemIndex:= +1 ;

@M.Knebel
vielen dank für dein beispiel, ich kriege das nicht alleine hin, ist viel zu komplex... ich bin blutiger anfänger

[Hagen]

mit einer listbox funktioniert das supergut, bei einer listview wird das move angezweifelt. mag sich dazu jemand äußern?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  CurrIndex: Integer;
begin
  if ListView1.ItemIndex > 0 then
  begin
    CurrIndex := ListView1.ItemIndex;
    ListView1.Items.Move(ListView1.ItemIndex, (CurrIndex - 1));
    ListView1.ItemIndex := CurrIndex - 1;
  end;
end;