procedure TForm1.ShellListView1Click(Sender: TObject); var i:integer; begin for i:=0 to ShellListView1.Items.Count-1 do begin if ShellListView1.Items[i].Selected then begin edit3.Text:=ShellListView1.Folders[i-1].PathName; edit4.Text:=ShellListView1.Folders[i+1].PathName; end; end; end;
var
i:integer;
begin
for i:=0 to ShellListView1.Items.Count-1 do
begin
if ShellListView1.Items[i].Selected then
begin
edit3.Text:=ShellListView1.Folders[i-1].PathName;
edit4.Text:=ShellListView1.Folders[i+1].PathName;
end;
end;
end;