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

[mdejtod]

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

如果都解决了，另加三百分!!!

[liangpei2008]

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

[lg19850320]

没用过。
up

[starluck]

可能是寫到流中後讀取的時候先建立了子窗體，父窗體還沒建立。

[mdejtod]

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

[wywry]

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

[kampan]

5楼的回答似乎比较针对楼主，看了看。

[xiedewei]

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;

[tjg5202]

学习中。。。。。。。。。

[mdejtod]

好像是，学习下

[Jack_Yin]

顶此帖,留名,以备学习之用!

[mdejtod]

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

[mdejtod]

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

[无条件为你]

好，希望楼主说话算话！解决后再给三百分！

[mdejtod]

我来CSDN混，不是为分....

[genispan]

关注