动态生成控件的有关问题

动态生成控件的问题~
有一个PageControl1控件，其中一个TabSheet1上有一些如richedit,button等控件。
应该如何在新的tbaSheet2控件上自动创建TabSheet1上的所有控件及它们的运行函数，如Button的点击~

[解决办法]
如果同样的控件生成较多，可以用数组来管理，比如Button数组，尤其是如果用同样的OnClick函数时，你可以遍历数组来找到谁是Sender。
[解决办法]
汗，，一时看错题目意思了
[解决办法]
把那个TAB1上面的东东做成FRAME，也是可行的
[解决办法]
遍历TabControl1的Controls，一个一个生成?
[解决办法]

探讨

遍历TabControl1的Controls，一个一个生成?

[解决办法]
tabsheet2.InsertControl(控件);
控件.ParentWindow := tabsheet2.Handle;
[解决办法]
很明显，这需要做一个公用的窗体，然后在Page遍历TabControl1，加载这个窗体就可以了。你要一个一个创建累不死你！代码都得堆死你。改一个控件，你得改多少地方。6楼的方法就对了！

查看更多 下一篇