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