我窗体有个listview和treeview procedure TFmain.TreeView1Change(Sender: TObject; Node: TTreeNode); begin listview1.Items.Clear; for i:=0 to TreeView1.Selected.Count-1 do listview1.Items.Add.Caption:=TreeView1.Selected.Item[i].Text; end; procedure TFmain.ListView1DblClick(Sender: TObject); begin treeview1.Select(TreeView1.Selected.Item[ListView1.ItemIndex],[ssDouble]); ????????? end; 那个?????怎么写
ListView1.Items[x].Selected := True;
TreeView1.select(TreeView_RollBus.Items[1]);
TreeView1.select(TreeView1.Items[1]);
procedure TFmain.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
listview1.Items.Clear;
for i:=0 to TreeView1.Selected.Count-1 do
listview1.Items.Add.Caption:=TreeView1.Selected.Item[i].Text;
end;
procedure TFmain.ListView1DblClick(Sender: TObject);
begin
treeview1.Select(TreeView1.Selected.Item[ListView1.ItemIndex],[ssDouble]);
?????????
end;
那个?????怎么写
改成
treeview1.Select(TreeView1.Items[ListView1.Selected.Index]);就行了
但达不到我要得效果
treeview1.Select(TreeView1.Selected.Item[listview1.Selected.Index]);
下次把问题说清楚,你看咱两个费这个劲