huizhang 到这取分(100分)

  • 主题发起人 主题发起人 yaojiaqing
  • 开始时间 开始时间
Y

yaojiaqing

Unregistered / Unconfirmed
GUEST, unregistred user!
我这为你准备了tline.zip的加分,请笑纳。运行阶段的问题烦请解决。
 
to yao:
运行阶段的问题, 能否说具体点? 为了这100分,一定令你满意.
此外, 告诉你最新动态, 鼠标已经能够穿透直线的背景, 不过方法不怎么样:
对Delphi的Controls.pas做了一点修改(只是改动了implementation段). 暂时还不
想公布出来, 待有更好的办法出台后在发表吧. 如果你着急试用, 可以邮寄给你.
 
你的线是Tgraphiccontrol,所以对于Tcustomcontrol的是不用穿透的,
在Tgrphiccontrol的鼠标事件中加入自己定义的事件sent to parent form!
有parent form处理,再把message送入相关控件!
 
to delphi2:
感觉上确实如此, 但是看一看<a href="DispQ.asp?LID=99091">huizhang最新更新TLine, 运行时只要鼠标一击, 连"拖"带"拉"</a>
里面列出来的TWinControl.ControlAtPos函数你就明白不是那么回事了. 当parent
接收到鼠标消息时, 就调用这个函数. 没有其他好办法, 只要修改这个函数, 给我们
美丽的D妃整整容了.
如果你有办法替换这个函数, 这100分归你.
 
huizhang:我的意思就是在运行阶段要和在编辑时有同样的效果,可以改变大小
及拖拉。
 
to yaojiaqing: 我理解你所要的不是一条线而已, 你需要的是一个通用的GrabHandle
对不对?
 
对呀,huizhang大哥。
 
hi yaojiaqing,
那个TGrabHandle, TGrabHandles都是现成的在Delphi by Delphy的ProxyForm中.
不过, 如果你用Delphi4的话, 的把其中的TFormDesigner改成IFormDesigner.
 
我见到一个做Cad的控件的例子,不过控件还没有!
 
学校放假了, 虽然也得时不时的去看一看, 但是多少有点时间了. 我就把以前遗留下
来的PpropertyInspector以及GrabHandle结合到一起, 做一个控件, 让他既能动态
显示属性有能动态拖拉控件. 如果可能, 再自动的保存Form位置, 尺寸, 及其控件的
位置.
不过大家不要着急, 待我慢慢作来. 岁数大了, 做事情多少有点拖拉...
 
huizhang 大哥:现在咋样了
 
yaojiaqing:
问题可以结束了吧!
 
接受答案了.
 
后退
顶部