Delphi-Quellcode:
with lvGroups do begin
if SelCount>0 then
for i:=0 to Items.Count-1 do
if Items[i].Selected then begin
GrpName:=InputBox('Gruppe ändern', Name ändern:', Items[i].Caption);
Das ist mir grad noch eingefallen. Aber irgendwie sieht das unelegant aus
