控件的问题？

Question

如何象在动态创建控件的时候，根据我的需要在上面画就如delphi在设计表单界面的时候那样用鼠标画按钮

Answer 1

处理onmousemove事件 记下用户选择的位置，再设置动态控件的top，width之类的属性。

Answer 2

onmousedown里创建控件width和height:=0，在onmousemove里改变高度和宽度.
onmouseup里结束改变高度和宽度

Answer 3

onmousedown：记录鼠标的位置，保存在pt1和pt2中
onmousemove：根据pt1和pt2画矩形（异或模式），将鼠标的位置保存在pt2中，再画矩形（异或）
onmouseup：  根据pt1和pt2画矩形（异或模式），一pt1和pt2确定的rect创建控件。