1怎么让一个buttton跟着SCROLLBOX的移动条走,button最好是悬空的效果 (100分)

  • 主题发起人 主题发起人 美国提子
  • 开始时间 开始时间

美国提子

Unregistered / Unconfirmed
GUEST, unregistred user!
1怎么让一个buttton跟着SCROLLBOX的移动条走,button最好是悬空的效果
 
1、写个控件继承滚动事件!
假设BUTTON原因的TOP为10,你就这样写
procedure TRuleScrollBox.WMVScroll(var Message: TWMVScroll);
{竖向滚动}
begin
inherited;
BUTTON1.TOP := 10;
end;
 
2、假设内容的竖向位置为100
你就写以这么写
SCrollBox1.V....ar.position := 100-ScrollBox1.Height;
 
赫赫,我不会写控件啊,写控件也不行啊,不是我一个人用,太麻烦了
 
怎么让一个buttton跟着SCROLLBOX的移动条走?
 
你扩展一个TScrollBox,拥有这些事件,然后不需要安装,只需要在单元中用
TScrollBox = TMyScrollBox来替换这个类,应该就可以了(但是这样只有动态创建才有效,
你不想写控件,怕是不行)。
 
有一个很笨的方法就是计时器或OnMouseDown,OnMouseMove里面写事件
 
写控件很简单,
继承TSCROLLBOX,再写上上面几句话就行了·
 
俺不会啊,从没写过
 
多人接受答案了。
 
后退
顶部