高亮listbox鼠标移动所在位置的项目

最新推荐文章于 2017-12-15 12:12:32 发布

原创最新推荐文章于 2017-12-15 12:12:32 发布 · 3.4k 阅读

0 ·

CC 4.0 BY-SA版权

C++builder 专栏收录该内容

131 篇文章

订阅专栏

本文介绍了两种在Delphi中获取列表框中项位置的方法：一种是通过发送LB_ITEMFROMPOINT消息，另一种是使用ItemAtPos方法。这两种方法都可以帮助开发者根据鼠标的位置确定当前选中的列表项。

发送消息LB_ITEMFROMPOINT获取位置

方法一发消息

void __fastcall TForm2::ListBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
   int idx;
   idx = SendMessage(ListBox1->Handle, LB_ITEMFROMPOINT, 0, MAKELPARAM(X,Y)) ;
   ListBox1->Hint = ListBox1->Items->Strings[idx];
   ListBox1->ItemIndex = idx;
   BitBtn2->Top = ListBox1->Top+ ListBox1->ItemHeight*(idx);
}

方法二 ItemAtPos方法

void __fastcall TForm2::ListBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
   int idx;
   TPoint p(X,Y);
   idx = ListBox1->ItemAtPos(p,true);
   ListBox1->Hint = ListBox1->Items->Strings[idx];
   ListBox1->ItemIndex = idx;
   BitBtn2->Top = ListBox1->Top+ ListBox1->ItemHeight*(idx);
}