procedure TForm1.ListBox1Click(Sender: TObject);
var
i:Integer;
begin
i:= ListBox1.ItemIndex;
Memo1.SelStart:=SendMessage(Memo1.Handle, EM_LINEINDEX, i, 0); ;
Memo1.SelLength := Length(Memo1.Lines[i]);
Memo1.SetFocus;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024