OnChange, OnChanging事件指的是被某一个节点被选中变成另一个节点被选中所触发的事件。你的意思是:假如当前ShellListView1和StringGrid1显示的都是c:\的内容,当你双击aa目录并进入它,你想让StringGrid1刷新显示C:\aa的内容,是吗?在OnDblClick中写啊。 procedure TForm1.ShellListView1DblClick(Sender: TObject); var i:integer; begin StringGrid1.RowCount :=ShellListView1.Items.Count +1; for i:=1 to ShellListView1.Items.Count do StringGrid1.Cells[0,i]:=ShellListView1.Folders[i-1].PathName ; end;一般ShellListView和ShellTreeview配合使用,只要互相设置其ShellTreeView和ShellListView属性指向对方就可以了。可以达到“资源管理器”的效果。
procedure TForm1.ShellListView1DblClick(Sender: TObject);
var
i:integer;
begin
StringGrid1.RowCount :=ShellListView1.Items.Count +1;
for i:=1 to ShellListView1.Items.Count do
StringGrid1.Cells[0,i]:=ShellListView1.Folders[i-1].PathName ;
end;一般ShellListView和ShellTreeview配合使用,只要互相设置其ShellTreeView和ShellListView属性指向对方就可以了。可以达到“资源管理器”的效果。