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 pascal 单元文件的特殊定义格式

Delphi xe 程序瘦身.编译后exe最低90kb

delhpi如何直接获得webbrowser输入的xml文件

Delphi synedit的安装和基本使用

Delphi xe 如何实现("再按一次退出") 然后退出程序

Delphi用twebbrowser组件在Delphi中post数据和取得网页源文件

Delphi在网格cxgrid的左上角放置一个按钮

Delphi利用getprocessmemoryinfo获取进程占用内存大小

Delphi 去掉警告

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

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