Delphi 窗体函数 ShowScrollBar 控制滚动条

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(Memo1),SB_HORZ,0);//隐藏水平滚动条 
ShowScrollBar(Handle(Memo1),SB_VERT,0);//隐藏垂直滚动条 
ShowScrollBar(Handle(Memo1),SB_BOTH,0);//隐藏所有滚动条

例如:

ShowScrollBar(self.handle,0,False) ;  //隐藏水平滚动条

原文地址:https://www.cnblogs.com/guorongtao/p/11675307.html

时间: 2024-11-10 14:25:34

Delphi 窗体函数 ShowScrollBar 控制滚动条的相关文章

Delphi 窗体函数GetWindowLong-获取指定窗口的信息

原型:Long GetWindowLong(HWND hWnd,int nlndex); 参数: hWnd 目标窗口句柄,间接指向其窗口类.nlndex 若指定值大于0,返回窗口内存中指定偏移量的32位值. 也可指定以下值来获得其它数据: 宏定义 常量 描述 GWL_EXSTYLE -20 获取扩展窗口样式 GWL_HINSTANCE -6   获取应用实例句柄 GWL_HWNDPARENT   -8   获取所有者窗口句柄 GWL_ID   -12     获取窗口ID GWL_STYLE -

delphi常用函数大全(转)

Abort函数引起放弃的意外处理Abs函数绝对值函数AddExitProc函数将一过程添加到运行时库的结束过程表中Addr函数返回指定对象的地址AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分Alignment属性控件标签的文字位置AllocMem函数在堆栈上分配给定大小的块AllowGrayed属性允许一个灰度选择AnsiCompareStr函数比较字符串(区分大小写)AnsiCompareText函数比较字符串(不区分大小写)A

Delphi常用函数

Abort                      函数 引起放弃的意外处理 Abs(real)                  函数 绝对值函数 AddExitProc                函数 将一过程添加到运行时库的结束过程表中 Addr(variant)              函数 返回指定对象的地址 AdjustLineBreaks           函数 将给定字符串的行分隔符调整为CR/LF序列 AllocMem                   函数 在堆栈

delphi回调函数

疯狂delphi delphiXE7.XE8.XE10公开课A 群号:58592705 delphi回调函数 文章来源: http://anony3721.blog.163.com/blog/static/5119742010866050589/ 一.主单元 unit UnMain; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graph

Delphi回调函数及其使用

Delphi回调函数及其使用 1 回调函数的概述 回调函数是这样一种机制:调用者在初始化一个对象(这里的对象是泛指,包括OOP中的对象.全局函数等)时,将一些参数传递给对象,同时将一个调用者可以访问的函数地址传递给该对象.这个函数就是调用者和被调用者之间的一种通知约定,当约定的事件发生时,被调用者(一般会包含一个工作线程)就会按照回调函数地址调用该函数.  这种方式,调用者在一个线程,被调用者在另一个线程. 消息: 消息也可以看作是某种形式的回调,因为消息也是在初始化时由调用者向被调用者传递一个

delphi公用函数

{*******************************************************} { } { Delphi公用函数单元 } { } { 版权所有 (C) 2008 } { } {*******************************************************} unit YzDelphiFunc; interface uses ComCtrls, Forms, Windows, Classes, SysUtils, ComObj,

delphi公共函数 UMyPubFuncFroc--版权所有 (C) 2008 勇者工作室

{*******************************************************} { } { Delphi公用函数单元 } { } { 版权所有 (C) 2008 勇者工作室 } { } {*******************************************************} unit UMyPubFuncFroc; interface uses ComCtrls, Forms, Windows, Classes, SysUtils,

[TimLinux] JavaScript 代码控制滚动条移动到顶部/底部

1. scrollIntoView函数 这个函数控制滚动条顶部内容.还是底部内容呈现在视图窗口中,接收一个参数:boolean值. true: 顶部出现在视图窗口中 false: 底部存在在视图窗口中 2. 示例 <div> <pre>...</pre> </div> 如果内容长度在pre中,且是pre中的内容很长导致出现滚动条,则调用该函数应该是由pre元素,示例: var idPre = document.getElementById('idPre');

Delphi的函数指针

不求全面,先留个爪: TNotifyEvent = procedure(Sender: TObject) of object; TMethod = record Code, Data: Pointer; end; 判断两个按钮的事件是否相等: procedure TForm1.Button5Click(Sender: TObject); var f1,f2: TNotifyEvent; begin f1:=Button1.OnClick; f2:=Button2.OnClick; if (@[e