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