delphi 去掉TreeView水平滚动条

使用API函数：
声明


FUNCTION ulong ShowScrollBar(ulong

hwnd,ulong wBar,ulong bShow) LIBRARY "user32.dll"
调用
constant long SB_HORZ = 0
constant long SB_VERT

= 1
constant long

SB_BOTH = 3
ShowScrollBar(Handle(TreeView1),SB_HORZ,0);//隐藏水平滚动条 
ShowScrollBar(Handle(TreeView1),SB_VERT,0);//隐藏垂直滚动条 
ShowScrollBar(Handle(TreeView1),SB_BOTH,0);//隐藏所有滚动条

来源： <http://bbs.csdn.net/topics/370040154>

//去掉TreeView水平滚动条

ShowScrollBar(TreeView1.handle,0,False) ;

还有一种方法，也是API:

定义两个实例常量
constant int GWL_STYLE = -16
constant uLONG TVS_NOHSCROLL = 32768

定义两个外部函数声明
Function long GetWindowLong (ulong hWnd, int nIndex) Library "USER32.DLL " Alias for "GetWindowLongA "
Function long SetWindowLong (ulong hWnd, int nIndex, long dwNewLong) Library "USER32.DLL " Alias for "SetWindowLongA "

在程序中按照以下方法写
long   ll_TVStyle
ll_TVStyle   =   GetWindowLong(Handle(tv_1),GWL_STYLE)
ll_TVStyle   +=   TVS_NOHSCROLL
SetWindowLong(Handle(tv_1),GWL_STYLE,ll_TVStyle)

来自为知笔记(Wiz)

delphi 去掉TreeView水平滚动条

时间： 2024-10-07 01:32:42

delphi 去掉TreeView水平滚动条的相关文章

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

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

css设置滚动条颜色与样式以及如何去掉与隐藏滚动条

我们大家在浏览网页的时偶尔会看到很漂亮的各种颜色样式的滚动条,这就是通过css代码控制来实现的,于是本人搜集整理一番,这里和大家分享一下使用CSS设置滚动条颜色以及如何去掉滚动条的方法,需要的朋友可以参考下,很有用的 1 div { 2 scrollbar-face-color: #fcfcfc; 3 scrollbar-highlight-color: #6c6c90; 4 scrollbar-shadow-color: #fcfcfc; 5 scrollbar-3dlight-color:

模态窗口去除水平滚动条

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

为TListBox添加水平滚动条

为TListBox添加水平滚动条实例说明 TListBox组件是一个较为常用的列表组件,在默认情况下该组件是没有水平滚动条的,所以文字过长会显示不完全,在文字较短的情况下还可以,但是如果一行的文字很长的话也不行.本例为TListBox添加了一个水平的滚动条,运行本程序单击[添加滚动条]按钮在TListBox组件中就会增加一个水平滚动条,运行效果如图1所示. 图1 为TListBox添加水平滚动条思路与技术在Windows中大部分窗口都具有滚动条,如果窗口被建立时没有让它具有滚动条特性的话

delphi 判断是否出现滚动条

delphi 判断是否出现滚动条 if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_VSCROLL) <> 0 then ShowMessage('Vertical scrollbar is visible!'); if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_HSCROLL) <> 0 then ShowMessage('Horizonta

禁止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);

winform水平滚动条联动panel

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