delphi ��B以 ListBox 的Item �� Hint

本文整理自网络，侵删。

 delphi ??B以 ListBox 的Item ?? Hint

procedure TForm1.ListBox1MouseMove
(Sender: TObject; Shift: TShiftState; X, Y: Integer) ;
var lstIndex : Integer ;
begin
with ListBox1 do begin
lstIndex:=SendMessage(Handle,
LB_ITEMFROMPOINT,
0, MakeLParam(x,y)) ;
if (lstIndex >= 0) and
(lstIndex <= Items.Count) Then
Hint := Items[lstIndex]
else
Hint := ''
end;
end;
end. 

 

相关阅读 >>

Delphi 两字符串之间添加分隔符

Delphi 主程序装载脚本

Delphi xe2-firemonkey 新功能

Delphi编写的一款锁屏小工具

Delphi 16进制字符串转原字符串

Delphi 关于xe10下indy发送字符串编码的问题

Delphi删除文件和文件夹

Delphi dll窗体调用解

Delphi fmx用timage显示不同格式的图片

Delphi判断当前用户是否为管理员

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi ��B以 ListBox 的Item �� Hint