如何控制Scroll的滑块大小(高手快来) (100分)

  • 主题发起人 主题发起人 wlmmlw
  • 开始时间 开始时间
不是有个pagesize吗?一设就可以了。
 
api,pagesize
 
能不能详细点,我软笨!
 
在属性编辑器里不是有这么一个属性么?
 
pagesize缺省为0,指定为1后就很小,指定为20。。。
 
俺在写一个控件
如何控制Horizontal 和 Vertical Scroll 滑块的大小 ??

谢谢
 
:))不会!
 
太谦了!!!
 
help me, please!
 
看看delphi里面有没有scroll的源码?
 
我又得去大搜一了!!!
 
对于ScrollBar,PageSize就可以了,对于其他的,下面的也许适用,摘自TScrollBar.SetPageSize;

procedure TForm1.Button1Click(Sender: TObject);
var
ScrollInfo: TScrollInfo;
begin
ScrollInfo.cbSize := SizeOf(ScrollInfo);
ScrollInfo.nPage := StrToInt(Edit1.Text);
ScrollInfo.fMask := SIF_PAGE;
SetScrollInfo(ScrollBar1.Handle, SB_CTL, ScrollInfo, True);
end;
 
我去试试!
SetScrollInfo好象是32位的!!
 
别提pagesize属性了,痛苦!
 
不痛苦,我解决了这个问题!!!
pagesize := 20;
allPagesize := youSize + pagesize
 
allpagesize是什么?
 
要设置的总长度!!!
 
多人接受答案了。
 
后退
顶部