如何实现鼠标放在listbox就会自动选中listbox其中的项目。 怎么实现把鼠标放在listbox上面,无需点击鼠标,就可以选择鼠标下面listbox中的项目 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在ListBox的OnMouseMove事件中:procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var i: Integer;begin i := ListBox1.ItemAtPos(Point(X,Y), True); if i >= 0 then ListBox1.Selected[i] := True;end; TDataSetProvider 的问题 如何把停靠的那个两行的双击事件屏蔽掉呢 建立视图 窗口切换,感觉有点慢 为什么我用qickrep做的报表只能显示一行啊?能不能给点解释? 50分求购第三方控件-TSDDBGrid 求救!!!!!快!!!!! DELPHI程序员都应该来关注的问题!现在C#出来了,看起来和DELPHI差不多,我们是不是要该学C#呢? 把整型数字转为字符型的函数是什么? 用FILEWRITE写文本文件怎么写的乱七八糟的??? 问一个问题 怎样直接在dbgrid里输入数据?
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var i: Integer;
begin
i := ListBox1.ItemAtPos(Point(X,Y), True);
if i >= 0 then ListBox1.Selected[i] := True;
end;