为TListBox添加水平滚动条

为TListBox添加水平滚动条

实例说明

TListBox组件是一个较为常用的列表组件,在默认情况下该组件是没有水平滚动条的,所以文字过长会显示不完全,在文字较短的情况下还可以,但是如果一行的文字很长的话也不行。本例为TListBox添加了一个水平的滚动条,运行本程序单击【添加滚动条】按钮在TListBox组件中就会增加一个水平滚动条,运行效果如图1所示。

图1  为TListBox添加水平滚动条

思路与技术

在Windows中大部分窗口都具有滚动条,如果窗口被建立时没有让它具有滚动条特性的话,滚动条就不会被显示出来。Windows提供的消息LB_SETHORIZONTALEXTEND可以设置窗体的滚动条。因为TListBox也属于一种窗体,所以通过使用该消息同样可以设置TListBox的水平滚动条。

向TListBox组件发送该消息应使用SendMessage函数,当向TListBox组件发送LB_SETHORI ZONTALEXTEND消息时,SendMessage函数的参数wParam是水平滚动条的宽度。

SendMessage(listbox1.Handle
,lb_sethorizontalextent,100,0);

{ Listbox messages }

const
  {$EXTERNALSYM
LB_ADDSTRING}
  LB_ADDSTRING            = $0180;
  {$EXTERNALSYM
LB_INSERTSTRING}
  LB_INSERTSTRING         = $0181;
  {$EXTERNALSYM
LB_DELETESTRING}
  LB_DELETESTRING         = $0182;
  {$EXTERNALSYM
LB_SELITEMRANGEEX}
  LB_SELITEMRANGEEX       = $0183;
  {$EXTERNALSYM
LB_RESETCONTENT}
  LB_RESETCONTENT         = $0184;
  {$EXTERNALSYM
LB_SETSEL}
  LB_SETSEL               = $0185;
  {$EXTERNALSYM
LB_SETCURSEL}
  LB_SETCURSEL            = $0186;
  {$EXTERNALSYM
LB_GETSEL}
  LB_GETSEL               = $0187;
  {$EXTERNALSYM
LB_GETCURSEL}
  LB_GETCURSEL            = $0188;
  {$EXTERNALSYM
LB_GETTEXT}
  LB_GETTEXT              = $0189;
  {$EXTERNALSYM
LB_GETTEXTLEN}
  LB_GETTEXTLEN           = $018A;
  {$EXTERNALSYM
LB_GETCOUNT}
  LB_GETCOUNT             = $018B;
  {$EXTERNALSYM
LB_SELECTSTRING}
  LB_SELECTSTRING         = $018C;
  {$EXTERNALSYM
LB_DIR}
  LB_DIR                  = $018D;
  {$EXTERNALSYM
LB_GETTOPINDEX}
  LB_GETTOPINDEX          = $018E;
  {$EXTERNALSYM
LB_FINDSTRING}
  LB_FINDSTRING           = $018F;
  {$EXTERNALSYM
LB_GETSELCOUNT}
  LB_GETSELCOUNT          = $0190;
  {$EXTERNALSYM
LB_GETSELITEMS}
  LB_GETSELITEMS          = $0191;
  {$EXTERNALSYM
LB_SETTABSTOPS}
  LB_SETTABSTOPS          = $0192;
  {$EXTERNALSYM
LB_GETHORIZONTALEXTENT}
  LB_GETHORIZONTALEXTENT  = $0193;
  {$EXTERNALSYM LB_SETHORIZONTALEXTENT}
  LB_SETHORIZONTALEXTENT  = $0194;
  {$EXTERNALSYM
LB_SETCOLUMNWIDTH}
  LB_SETCOLUMNWIDTH       = $0195;
  {$EXTERNALSYM
LB_ADDFILE}
  LB_ADDFILE              = $0196;
  {$EXTERNALSYM
LB_SETTOPINDEX}
  LB_SETTOPINDEX          = $0197;
  {$EXTERNALSYM
LB_GETITEMRECT}
  LB_GETITEMRECT          = $0198;
  {$EXTERNALSYM
LB_GETITEMDATA}
  LB_GETITEMDATA          = $0199;
  {$EXTERNALSYM
LB_SETITEMDATA}
  LB_SETITEMDATA          = $019A;
  {$EXTERNALSYM
LB_SELITEMRANGE}
  LB_SELITEMRANGE         = $019B;
  {$EXTERNALSYM
LB_SETANCHORINDEX}
  LB_SETANCHORINDEX       = $019C;
  {$EXTERNALSYM
LB_GETANCHORINDEX}
  LB_GETANCHORINDEX       = $019D;
  {$EXTERNALSYM
LB_SETCARETINDEX}
  LB_SETCARETINDEX        = $019E;
  {$EXTERNALSYM
LB_GETCARETINDEX}
  LB_GETCARETINDEX        = $019F;
  {$EXTERNALSYM
LB_SETITEMHEIGHT}
  LB_SETITEMHEIGHT        = $01A0;
  {$EXTERNALSYM
LB_GETITEMHEIGHT}
  LB_GETITEMHEIGHT        = $01A1;
  {$EXTERNALSYM
LB_FINDSTRINGEXACT}
  LB_FINDSTRINGEXACT      = $01A2;
  {$EXTERNALSYM
LB_SETLOCALE}
  LB_SETLOCALE            = $01A5;
  {$EXTERNALSYM
LB_GETLOCALE}
  LB_GETLOCALE            = $01A6;
  {$EXTERNALSYM
LB_SETCOUNT}
  LB_SETCOUNT             = $01A7;
  {$EXTERNALSYM
LB_INITSTORAGE}
  LB_INITSTORAGE          = $01A8;
  {$EXTERNALSYM
LB_ITEMFROMPOINT}
  LB_ITEMFROMPOINT        = $01A9;
  {$EXTERNALSYM
LB_MSGMAX}
  LB_MSGMAX               = 432;

开发步骤

(1)新建一个标准工程,创建一个新窗体,默认主窗体的Name属性为Form1。

(2)在窗体中添加TGroupBox、TListBox和TButton组件。

(3)程序完整代码如下:

procedure TForm1.FormCreate(Sender:
TObject);
begin
     ListBox1.Items.Add(‘aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa‘);
end;

procedure TForm1.Button1Click(Sender:
TObject);
var
  i,ItemWith:
integer;
begin
  ItemWith:= 0;
  for i := 0 to listbox1.Items.Count
- 1 do
    if ItemWith <
listbox1.Canvas.TextWidth(listbox1.Items[i])then
      ItemWith
:=
listbox1.Canvas.Textwidth(listbox1.Items[i]);
  SendMessage(listbox1.Handle
,lb_sethorizontalextent,ItemWith,0);
end;

来自为知笔记(Wiz)

为TListBox添加水平滚动条,布布扣,bubuko.com

时间: 07-29

为TListBox添加水平滚动条的相关文章

为MFC中的ListBox添加水平滚动条

我们知道,MFC中的水平滚动条并不像垂直滚动条那样的智能.当文字超出ListBox的宽度时,水平滚动条并不会自己出现,我们需要手动的调用CListBox中的函数SetHorizontalExtent设置宽度,单位为像素. 我们可以自己添加智能水平滚动条,现在我们首先随便创建一个ListBox控件,并将它的HorizontalScrollbar属性设置为True,如下: 这样,控件的创建就完成了,然后就需要添加代码来实现智能水平滚动条了. 首先,我们创建一个类,这里,我命名为CIHListBox,

table添加水平滚动条

<html> <head> <title>table新增水平滚动条</title> <style type="text/css"> .tableWrap { overflow: auto; } table{ width: 100% } table th{ white-space: nowrap; } table td{ white-space: nowrap; } </style> </head> &l

VB ListBox 添加横向滚动条

Private Declare Function SendMessage Lib "user32 " Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Const LB_SETHORIZONTALEXTENT = &H194-----------------------

winform水平滚动条联动panel

需求: 滚动滚动条时显示pnlBack里面的button 文本框里输入数字,改变每行显示的按钮数 源码如下: /// <summary> /// 窗体加载 /// </summary> /// <param name="sender"></param> /// <param name="e"></param> private void Form1_Load(object sender, Even

关于iframe的滚动条,如何去掉水平滚动条或垂直滚动条

关于iframe的滚动条,如何去掉水平滚动条或垂直滚动条 关于<iframe>可以通过设置属性scrolling="no" 去掉iframe的两个滚动条. 如何只去掉水平滚动条或垂直滚动条呢,一些网页组件通过设置组件的style属性的overflow-x : hidden或overflow : hidden来去掉水平滚动条或垂直滚动条.但是对iframe不起作用. 可以通过下面的方法来去掉:在iframe 所包含的网页中添加<style>html { overf

java中JScrollPane不显示水平滚动条的解决办法

在JPanel中添加了表格,表格中对东西太多,需要水平滚动条滑动才能够完全找到所有数据,如果没有水平滚动条的话,数据堆积在一起,无法分开 做法是: 第一步:先将表格自动调整的状态给关闭掉:table.setAutoResizeMode(JTable.AUTO_RESIZE_OFF); 第二步:设置JScrollPane的水平滚动条的方式,有三种,设js是一个JScrollPane的对象 js.setHorizontalScrollBarPolicy(JScrollPane.HORIZONTAL_

模态窗口去除水平滚动条

************ 1,模态窗口modaldialog,如果设置了scroll:yes,则默认水平和垂直都会出现滚动条, 如果要去除水平滚动条,在要显示在弹窗的jsp页面中这样写: <body style="overflow:scroll;overflow-x:hidden;"> 2, ************

禁止CListCtrl 的水平滚动条

禁止CListCtrl 的水平滚动条 分类: VC基础知识温习 2011-02-11 11:58 669人阅读 评论(1) 收藏 举报 ON_WM_NCCALCSIZE() void CMyListCtrl::OnNcCalcSize(BOOL bCalcValidRects, NCCALCSIZE_PARAMS FAR* lpncsp) { ModifyStyle(WS_HSCROLL | WS_VSCROLL,0,0); CListCtrl::OnNcCalcSize(bCalcValidR

设置QtreeWidget水平滚动条

转载请注明出处:http://www.cnblogs.com/dachen408/p/7552603.html //设置treewidget水平滚动条 ui.treeWidget->header()->setSectionResizeMode(QHeaderView::ResizeToContents);ui.treeWidget->header()->setStretchLastSection(false);