在动态生成控件时，如何做到像在Delphi环境下那样用鼠标来确定它的大小？

[Martin80]

如题

[miky]

捕获鼠标指针位置，当鼠标指针位于4条边或4个角时显示不同的光标，然后根据鼠标的位置设置控件的大小，没什么难度，但很罗嗦。
干脆用Width := XXX; Height := XXX把它定死算了，好用又方便。