为了给Pipi.同志分数而提的问题:-)(50分)

  • 主题发起人 主题发起人 Zephyr
  • 开始时间 开始时间
Z

Zephyr

Unregistered / Unconfirmed
GUEST, unregistred user!
为了给Pipi.同志分数而提的问题:
  不明白什么意思?没关系。

我想问的是:
  在使用TScrollBox时,我需要它的滚动条,但又不需要在用户按下
  滚动条时它自动滚动放在它里面的控件,有没有什么办法可以做到?
  (就是说我需要这样一个东东:它有滚动条,又能容纳其它控件,
  该控件的Align=alClient,但不需要滚动它所容纳的控件)
不知各位是否明白?
 
自己继承一个Panel,Panel上放一个TScrollBar,不就可以了?
 
是不是类似于浮动工具栏之类的样子?
如果不是,那又有什么用呢?
 
to DreamTiger: 我试过这么做,但效果不好。Panel上放两个TScrollBar,一个
Align=alRight,Align=alBottom,你可以试试看变成什么样子。另外我还需要
接受用户的按键操作,例如用上下键来改变ScrollBar的位置。

>>是不是类似于浮动工具栏之类的样子?
其实我是想要在ScrollBox中放一个PaintBox之类的控件,在滚动条滚动时自己
来画出其中的图象。
 
Pipi.兄这下“有喜”啦!


为何不从TScrollBox继承

procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;

在这两个函数中就是你需要的。
 
完了完了,这个问题我又自己解决了。
这下又浪费了50分,我提问时选错了分数,原本是想按Pipi.大侠告诉我的方法
提一个0分的问题,然后让答的人到我<A HREF="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=215428">另一个问题</A>那儿领分,结果睡眼朦胧中按
错了地方,给了这个问题50分。
算了,给DreamTiger和沈前卫两位各25分,shangcm兄没意见吧?
 
我不知道是什么意思,怎么给我分数?
 
我知道了,
一般来说,你要注明:
去http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=215428拿分
 
Hi,Pipi.大侠,你来了。
昨晚你在我<A HREF="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=215428">另一个问题</A>那儿帮了我一个大忙(你提的建议可以帮我挽回100分,这对于我这种
穷人来说可不少啊!),所以我要谢你!
 
To Pipi.:
  我再提另一问题,等答题的人到那个帖子那领了50分之后,剩下那50分算
我谢你的。(决不食言!)
 
多人接受答案了。
 

Similar threads

回复
0
查看
863
不得闲
D
回复
0
查看
802
DelphiTeacher的专栏
D
D
回复
0
查看
747
DelphiTeacher的专栏
D
D
回复
0
查看
696
DelphiTeacher的专栏
D
后退
顶部