《自绘ListBox的两种效果》一文帖出之后,从反馈信息来看,大家对这种小技巧还是很认同。接下来我将继续围绕ListBox写一系列的文章,进一步发掘ListBox的潜力,其中包括:自动调整横向滚动条宽度、即时提示(Tips)、拖放插入点提示等,并在最后制作一个在滚动区内的ListBox组。
自动调整横向滚动条宽度
网上可以找到很多让Listbox产生横向滚动条的文章,其中的方法基本一样,就是定义一个函数,遍历Items取得最大的TextWidth值,然后发Listbox发消息LB_SETHORIZONTALEXTENT产生横向滚动条。典型例子如下:
procedure SetWidth(Sender: TObject); var i, w: Integer; begin w := 0; with ListBox1 do begin for i:=0 to Items.Count -1 do begin if Canvas.TextWidth(Items[i]) > w then w := Canvas.TextWidth(Items[i]); end; SendMessage(Handle, LB_SETHORIZONTALEXTENT, w+4, 0); end; end; |
OK,现在换个思路。
当追加或插入新条目时,只要判断新内容的TextWidth是否大于滚动条宽度,