请教一个关于listView的问题

Question

把ListView1.Items[0].Selected:=true;移到With语句后面看看

Answer 1

  你是在ListView的OnSelectItem事件中写的吗?

Answer 2

显示选中是自动的不需要对Selected赋值
试试下面的代码：
procedure TForm1.ListView1Click(Sender: TObject);
var
  Item: TListItem;
begin
  if ListView1.Selected = nil then
    Exit;
  Item := ListView1.Selected;
  Edit1.Text := Item.Caption;
  Edit2.Text := Item.SubItems[0];
  //... continue
end;