|
Registriert seit: 10. Jun 2002
Ort: München
11.412 Beiträge
Delphi 11 Alexandria
|
Re: Nächstes Item makieren
26. Feb 2004, 16:10
Meine Idee:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if ShellListView1.ItemIndex < Pred(ShellListView1.Items.Count) then
ShellListView1.ItemIndex := Succ(ShellListView1.ItemIndex)
else
ShellListView1.ItemIndex := 0;
end;
...  ...
Daniel W.
Ich bin nicht zurück, ich tue nur so
|