listview鼠标点击事件

Question

想实现点击listview中的item，onmousedown执行一个事件，onmouseup执行一个事件，目前使用listview的onmousedown和onmouseUp点击鼠标不放没有执行，鼠标放开由全部都执行，无法区分。
代码如下：
procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
beginEdit1.Text := 'down';
end;procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin   Edit2.Text := 'up';
end;
请问有什么好的解决方式吗？

Answer 1

会执行吧,鼠标在ListView1点下时执行OnMouseDown,然后在ListView上松开鼠标执行
OnMouseUp, 如果两个操作都不在LivstView1上,即都不执行

Answer 2

是点击里面有内容的Item时候出现这个问题。