我把TTreeView控件的RightClickSelect设为true,我想写一个同时响应鼠标左键和右键的事件,我用了OnMouseUp事件,可是在实际过程中,我发现在用鼠标右键点击时,第一次点总是没有反映,非要点第二次才行,再点也是这样,这是怎么回事呀,是不是我选的事件不对,还请各位支招,谢谢!!
解决方案 »
- ADOQuery1控件关于ConnectionString属性的使用问题
- 使用ADO连接数据库,提示“控件已经存在”的错误,为什么
- 如何判断 DBEdit 的值不为空
- 在做滚动字幕时如何给它加背景?
- 如何用TADOQuery组件得到Access表的最后一条记录?(注意:要求最快的方法)
- 我的程序在自己机器好的在别的机器出现(Access violation at address 00540707 in module 'a.exe';read of address 00000000000000)!
- 请慎重考虑:关于封Google检索引擎
- Vista系统下用delphi开发工具怎么得到计算机名
- 急!大分相送!我的Delphi 5.0数据库驱动(Database Driver)MSSQL怎么没有了?如何把它给装上?
- 请教多国语言的实现
- 营救大兵LAIWEI791
- 各位gg、dd,为什么我的程序老死?
-----------------------------
//在鼠标按下的事件中(OnMouseDow)写代码
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbRight then
Treeview1.Selected :=Treeview1.GetNodeAt(X,Y);
end;//然后再在得到选中的事件中(OnGetImageIndex)写代码
procedure TForm1.TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);
begin
Edit1.Text := Self.TreeView1.Selected.Text;//自己加个Edit测试
end;//通过以上代码,你就可以发现,无论是左键还是右键都可以实现选中的功能
//选中后的内容显示在Edit中了