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