高分征求运行期控件拉伸最佳解决办法.....

Question

RT.。该控件是无 handle 的控件 ，继承 paintbox
在运行期如果借助其它控件则可以很好的达到效果，但是只是对单个控件操作，仅仅在 mouse 事件中写代码，有点难以判断.
不知有没有更有效的办法实现？？
另一问题：
用 filestream 保存控件到文件中，如果这个控件 的属性改了就会提示 control mypaintbox has no parent windows ？如果直接拉一个mypaintbox 再用writecomponent 写入到文件，再读取时就不会有问题，请问是怎么回事？？？ 
其它的控件可以正常读取如果都解决了，另加三百分!!!

Answer 1

参考一下CNPack工具包中CNDragResizer的实现

Answer 2

 to starluck 
 我写的时候是从父控件开始写起的，读的时候也是先读父控件

Answer 3

http://bbs.yd153.com/dispbbs.asp?boardid=2&Id=139&page=2

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ControlCount - 1 do
    TForm(Controls[i]).OnMouseDown := ControlMouseDown;
end;procedure TForm1.ControlMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  {使Sender进入被控制状态}
end;

Answer 5

对鼠标进入和离开事件很是不解,没有 handle的控件,系统是怎么向它发消息的?

Answer 6

Delphi 版是越来越冷清了.....