level 7
移动就比较好实现,可以把image先放到一个有句柄的容器中,在image的MouseMove事件里加上以下代码就可以(假设容器是个Panel1),然后设置image的Align为alClient。
ReleaseCapture;
SendMessage(Self.Panel1.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0)
至于手动调整大小,这个就比较麻烦,建议还是通过其他的按钮来进行缩放,因为Delphi本身并具有这些缩放操作的特性。如果非要实现的话,可以参考Delphi盒子上的一个例程,名字叫Resizer吧(记不大清),那个设计就非常全面了。
2014年04月11日 08点04分