窗体的autoscroll:=true,窗体scroll时,如何让窗体中的toolbar在窗体滚动时仍可见并保持在窗体最上方?
2008-10-14 16:31
495 查看
窗体的autoscroll:=true,窗体scroll时,如何让窗体中的toolbar在窗体滚动时仍可见并保持在窗体最上方? Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiBase/html/delphi_20061220094547109.html
我在窗体的onmousescroll中加了如下代码,但toolbar的位置定位不准。我需要toolbar1的toolbar与窗体滚动保持同步。
if WheelDelta<0 then begin
SendMessage(self.Handle,WM_VSCROLL,SB_LINEDOWN,0);
ToolBar1.Top:=ToolBar1.Top+SB_LINEDOWN;
end else begin
SendMessage(self.Handle,WM_VSCROLL,SB_LINEUP,0);
ToolBar1.Top:=ToolBar1.Top+SB_LINEUP;
end;
犯了个数学错误,这样就可以了。
但是我希望toolbar始终紧靠着窗体的VertScrollBar,怎么实现呢?
因为窗体的HorzScrollBar设置为不可见,所以如果toolbar.align:=alright的话,是看不见的。
if WheelDelta<0 then begin
SendMessage(self.Handle,WM_VSCROLL,SB_LINEDOWN,0);
ToolBar1.Top:=SB_LINEDOWN;
end else begin
SendMessage(self.Handle,WM_VSCROLL,SB_LINEUP,0);
ToolBar1.Top:=SB_LINEUP;
end;
你就不可以放个coolbar
再放一个tscrollbox 吗?
http://www.delphi2007.net/DelphiBase/html/delphi_20061220094547109.html
我在窗体的onmousescroll中加了如下代码,但toolbar的位置定位不准。我需要toolbar1的toolbar与窗体滚动保持同步。
if WheelDelta<0 then begin
SendMessage(self.Handle,WM_VSCROLL,SB_LINEDOWN,0);
ToolBar1.Top:=ToolBar1.Top+SB_LINEDOWN;
end else begin
SendMessage(self.Handle,WM_VSCROLL,SB_LINEUP,0);
ToolBar1.Top:=ToolBar1.Top+SB_LINEUP;
end;
犯了个数学错误,这样就可以了。
但是我希望toolbar始终紧靠着窗体的VertScrollBar,怎么实现呢?
因为窗体的HorzScrollBar设置为不可见,所以如果toolbar.align:=alright的话,是看不见的。
if WheelDelta<0 then begin
SendMessage(self.Handle,WM_VSCROLL,SB_LINEDOWN,0);
ToolBar1.Top:=SB_LINEDOWN;
end else begin
SendMessage(self.Handle,WM_VSCROLL,SB_LINEUP,0);
ToolBar1.Top:=SB_LINEUP;
end;
你就不可以放个coolbar
再放一个tscrollbox 吗?
相关文章推荐
- 如何在滚动报表时保持标题可见 (Reporting Services)
- 问题:如何让HorizontalScrollView中的item能滚动的时候点击居中
- 如何在Vim中绑定滚动?(How to bind Scroll in Vim?)
- Winform中,容器AutoScroll=true,如何判断运行时是否出现了滚动条(ScrollBar)以及滚动条的宽高度
- sharepoint 2010 页面刷新时滚动条位置保持不变 Controlling scrollbar position on postback
- 如何从后台开启android蓝牙的可见性以及始终保持可见性
- 如何从后台开启android蓝牙的可见性以及始终保持可见性
- sharepoint 2010 页面刷新时滚动条位置保持不变 Controlling scrollbar position on postback
- 如何让一个窗体永远保持在最上层
- sharepoint 2010 页面刷新时滚动条位置保持不变 Controlling scrollbar position on postback
- 如何保持JTable和JList的item始终可见
- HTMLDOM 滚动 可见高度,总高度(offsetHeight,scrollHeight)
- 如何隐藏TreeView,ListView等带有标准滚动条窗体的滚动条
- 如何从后台开启android蓝牙的可见性以及始终保持可见性
- PagesSection..::.MaintainScrollPositionOnPostBack(保持页滚动位置)
- 如何保持交互的可见性
- 如何用jQuery实现在鼠标滚动后导航栏保持固定
- iphone:保持表单输入的可见性——自动滚动视图
- 如何使窗体保持在最前 windows函数使用
- 如何使页面回发时滚动条保持原位