現在我有兩個ListView，裡面的Item個數是相同的！ ViewStyle是用vsReport的方式，因為要作對照用的 所以希望我選了兩個ListView其中一個Item，另一個Item也會被Selected！    

 
procedure TfrmSerReg.LV1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  //LV1及LV2 RowSelect 要同步
  if LV1.ItemIndex<>-1 then
  begin
    LV2.Items.Item[LV1.ItemIndex].Selected:=true;
  end;
end;
procedure TfrmSerReg.LV2SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  //LV1及LV2 RowSelect 要同步
  if LV2.ItemIndex<>-1 then
  begin
    LV1.Items.Item[LV2.ItemIndex].Selected:=true;
  end;
end;

目前我寫了這樣！ 可是如果選了其中一個ListView捲動範圍外的Item 另一個ListView的Item即使被Selected也看不見！ 請問大家，有同時捲動的方法嗎？ 正面思考 正面思考～～ XD

procedure TfrmSerReg.LV1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);

var dh:integer;    begin
  //LV1及LV2 RowSelect 要同步
  if LV1.ItemIndex<>-1 then
  begin        dh:=lv2.Items[lv1.itemindex].top-lv1.items[Iv1.itemindex].top;
    Lv2.Scroll(0,dh);        LV2.Items.Item[LV1.ItemIndex].Selected:=true;
  end;
end;

NOTE: 如此做無法用於MultiSelect

可以了耶～ 感激感激～～  正面思考 正面思考～～