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 与360

Delphi 随机程序名

Delphi firemonkey的stylebook皮肤控件的使用

Delphi 根据注册表信息判断程序是否安装

Delphi fdquery1查询，有无返回集

Delphi 随机函数单元urandomutils

Delphi 判断文件名是否有效

Delphi注册与卸载系统服务

Delphi实现阿里云印刷文字识别_身份证识别

Delphi 递归遍历treeview树节点

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

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