请问如何在Form上做一个类似Word中文本框的东西？(200分)

C

chcw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-02

• #1

现在我希望在Form上做一个类似于Delphi中Image控件的东西：即框中放一副图片，框的
四周有边框（在每条边的中点和边两两之间的焦点上有一个黑方块），当鼠标移动到边
框或对角点上时，会变成移动形状的箭头，然后拖动鼠标，可以拖动边框；如果
鼠标移动到这个框的其它地方并拖动时，可以将这个框一起拖动。而这个框的大小变化时，
图片的自动根据框的大小进行缩放。请问应该如何实现？

 

M

mjy97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-02

• #2

有一个控件可以实现你的要求，我已经上传到http://delphi.mychangshu.com/了，
上去查找DsnSys就有了

 

B

bubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-08

• #3

OnmouseMove判断鼠标位置,到边了就改变形状.cursor:=xxx
OnMouseDown纪录鼠标位置,拖拉的时候动态改变Image.height,width,top,left等等.
Image放在一个panel上.
OnmouseDown加
releasecapture;
perform(wm_syscommand,$f012,0);
就可以移动了.
图像缩放要根据像素和Image大小来换算......
越说越麻烦,估计还不是你想要的,算了.

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-20

• #4

给你控件，留下mail.

 

C

chcw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-22

• #5

Thanks, 我的E-Mail是: chcw@21cn.com

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-22

• #6

to 卷斑竹:
也给我一份吧，谢谢。