Memo如何让光标定位到第二行？

Question

如:当光标在Memo1第TEMP行中，移动到Memo2中也想让光标显示在第TEMP行中。。当然两个Memo行数是同步的。

Answer 1

那就取出Memo1的SelStart，然后设置Memo2的SelStart.

Answer 2

是否考虑换控件？如：TListBox.
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
  Randomize;
  ListBox1.Items.Clear;
  ListBox2.Items.Clear;
  for i := 1 to 100 do
  begin
    ListBox1.Items.Add(inttostr(i) + '. ' + inttostr(random(100)));
    ListBox2.Items.Add(inttostr(i) + '. ' + inttostr(random(100)));
  end;
end;procedure TForm1.ListBox1Click(Sender: TObject);
var i: integer;
begin
  i := ListBox1.ItemIndex;
  ListBox2.ItemIndex := i;
end;