listview鼠标点击事件
想实现点击listview中的item，onmousedown执行一个事件，onmouseup执行一个事件，目前使用listview的onmousedown和onmouseUp点击鼠标不放没有执行，鼠标放开由全部都执行，无法区分。
代码如下：
procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin

Edit1.Text := 'down ';
end;

procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin

Edit2.Text := 'up ';
end;
请问有什么好的解决方式吗？

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