Selectieren Listview / ListBox ????

**maluprog**

Hallo,

Habe eine ListView und eine ListBox, welche über einen Button selectiert und um eine Zeile gleichzeitig nach unten verschoben werden sollen.
Bei 2 ListBoxen klappt es, jedoch nicht gem. o.g. gesagtem. Warum nicht ?
Nachstehenden Code:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TFmein.BSelectClick(Sender: TObject);

begin

        if not (ListBoxA1.ItemIndex = ListBoxA1.Count - 1) then

        begin

         ListBoxA1.ItemIndex := ListBoxA1.ItemIndex +1;

        end

        else

        begin

         ListBoxA1.ItemIndex := 0;

        end;

         if not (ListViewA1.ItemIndex = ListViewA1.Items.Count - 1) then

        begin

         ListViewA1.ItemIndex := ListViewA1.ItemIndex +1;

        end

        else

        begin

         ListViewA1.ItemIndex := 0;

        end;

end;

Bei Listview gibt's kein ListView.Count, darum obenstehender Code.

Benötige Hilfe.

Selectieren Listview / ListBox ????

Selectieren Listview / ListBox ????

Forumregeln