markiertes item eines listview per button bewegen

[Hagen]

hallo 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

[Hagen]

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

[Daniel B]

Hallo,

ich habe es nach VCL-Komponenten verschoben.

Grüsse, Daniel

[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

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
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