如何产生鼠标拖动效果

字体大小: 中小 标准 ->行高大小: 标准 中 大 
通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL： 
var xpanel,ypanel,xlabel,ylabel:integer; 
PANEL的MouseMove事件：xpanel:=x;ypanel:=y; 
PANEL的DragOver事件：xpanel:=x;ypanel:=y; 
LABEL的MouseMove事件：xlabel:=x;ylabel:=y; 
LABEL的EndDrag事件：label.left:=xpanel-xlabel;label.top:=ypanel-ylabel;

此文章由 http://www.ositren.com 收集整理 ,地址为: http://www.ositren.com/htmls/67734.html