Delphi-Quellcode:
procedure TfrmMain.bExtractClick(Sender: TObject);
Var
lItem: TListItem;
begin
lItem := ListView1.Selected;
While Assigned(lItem) Do
Begin
ShowMessage(IntToStr(lItem.Index));
lItem := ListView1.GetNextItem(lItem, sdAll, [isSelected]);
End;
end;
Benutzt doch mal die Hilfe! Als ich fertig war finde ich genau diesen Code in der Hilfe zu der Eigenschaft GetNextItem() der TListView...