【搞定】关于SCROLLBOX 急!!!!在线等!!!!**

gundamcharred

我的想法时这样 想让整个窗体内容在一个SCROLLBOX之上 以便窗体缩小之后出现滚动条 窗体中有各种东西包括几个文档和TOOLBAR还有其他的 可是为什么没有效果呢 是不是还需要设置什么属性???

lisb

楼主你想实现什么效果？

gundamcharred

整个窗体内容在一个SCROLLBOX之上 窗体缩小之后出现滚动条 使整个窗体的内容作为整体一起滚动

lisb

你的这个窗体是主窗体吗？要是主窗体做不到。你可以用Panel调整窗体的布局。

gundamcharred

恩 这个问题已解决 加PANEL 而且手动设置RANGE属性  
另外 怎么让SCROLLBOX响应鼠标滚轮???

lisb

这是我在大富翁论坛上搜到的，你可以自己搜索

话题2495287的标题是： 怎样让ScrollBox响应鼠标滚轮的滚动？ (15分)
分类：控件 - 使用 TENTODBV (2004-03-10 12:44:00)  
我在窗体中添加了一个ScrollBox，在里边放上许多控件，ScrollBox自动出现了滚动条。我把光标定位在ScrollBox中的一个Edit中。我想实现：向下滚动鼠标的滚轮时，ScrollBox能向下滚动以显示ScrollBox中其他不可见的控件

crazyD (2004-03-10 12:45:55)  
应该是自动得不用设置。

yostgxf (2004-03-10 12:48:00)  
procedure TForm1.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
   //移动 下面二个的值   
    ScrollBox1.HorzScrollBar
    ScrollBox1.VertScrollBar

end;


dirk (2004-03-10 12:49:11)  
应该是在OnMouseWheel事件中写代码吧。

yf168 (2004-03-10 12:56:25)  
这个比较麻烦
  截获滚论消息

mr_deng (2004-03-10 13:23:24)  
procedure TForm1.ScrollBox1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  scrollbox1.VertScrollBar.Position :=  scrollbox1.VertScrollBar.Position + 30 ;
  //scrollbox1.HorzScrollBar.Position :=  scrollbox1.HorzScrollBar.Position + 30 ;
end;


TENTODBV (2004-03-10 20:01:09)  
我用以上代码，发现有这样的问题：
如果光标定位在Edit框中，鼠标滚轮滚动时确实使ScrollBox滚动；但是当我把焦点定位到ComboBox时，鼠标滚轮滚动我本来是希望使ComboBox滚动的，但是现在一律变成使ScrollBox滚动了。有什么办法能做到：焦点落在哪个控件上，鼠标滚轮滚动时就滚动哪个控件(当然是指带有滚动条的控件)

chenshaizi (2004-03-10 20:47:26)  
加入一个判断
if not (Self.ActiveControl.ClassType=TComboBox) then
scrollbox1.VertScrollBar.Position :=  scrollbox1.VertScrollBar.Position + 30 ;

gundamcharred

谢谢!结帖吧!