想实现点击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;
请问有什么好的解决方式吗?
代码如下:
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;
请问有什么好的解决方式吗?
解决方案 »
- 如何让delphi编译生成的exe文件包含多个图标啊?
- 怎样双击Tradiogroup里的单选按钮以取消选择项???在线等
- 仓库管理数据库系统中, 库位的设计方案?
- 请问 Windows 2000/XP如何控制打印机打印完之后自动复位?
- 我想实现类似delphi代码编辑器的功能,大虾们给点思路呀!
- 我新安装了DEPHI 7, 怎么没有了 quickReport ,我以前做的报表看不到了
- 如何调用运行中未创建的窗体?
- 怎样实现模糊查询
- 如何使用ADO控件组控件绑定ACTIVEX中的DATAGRID控件
- 怎样用Delphi读取电子表格文件
- TWebBrowser的焦点问题?
- tcombobox控件问题
OnMouseUp, 如果两个操作都不在LivstView1上,即都不执行