求助,如何删除(关闭)由TRzPageControl 生成的融合窗口

[zhoudagezhoudage]

我看了 这篇文章 http://bbs.csdn.net/topics/380027547 <<Delphi中TRzPageControl实现多窗口的融合窗口详细方法 >>, 的确实现了 多窗口的融合窗口. 但文章里没有 具体 介绍 如何 删除(或关闭)窗口, 比如,我要 关闭 指定的某个 窗口,,却实现不了,,

我的删除窗口思路是: for i := 0 to RzPageControl1.PageCount - 1 do 遍历找到 生成的窗口号, 然后 TRzTabSheet=‘菜单1’；；使用 TForm(RzPageControl1.ActivePage.Controls[i]).free; 释放窗口，i为 生成的窗口号。实现不了，，问题在： TRzTabSheet=‘菜单1’；编译出错 说： TRzTabSheet 是 CLass 为类的类型 ，，‘菜单1’ 是String 为字符类型， 他们之间不能做比较。请问，我该如何解决！ 谢谢 各位大侠 赐教。。

[fang]

引用 楼主 zhoudagezhoudage 的回复:

我看了 这篇文章 http://bbs.csdn.net/topics/380027547 <<Delphi中TRzPageControl实现多窗口的融合窗口详细方法 >>, 的确实现了 多窗口的融合窗口. 但文章里没有 具体 介绍 如何 删除(或关闭)窗口, 比如,我要 关闭 指定的某个 窗口,,却实现不了,, 我的删除窗口思路是: for i := 0 to RzPageControl1.PageCount - 1 do 遍历找到 生成的窗口号, 然后 TRzTabSheet=‘菜单1’；；使用 TForm(RzPageControl1.ActivePage.Controls[i]).free; 释放窗口，i为 生成的窗口号。实现不了，，问题在： TRzTabSheet=‘菜单1’；编译出错 说： TRzTabSheet 是 CLass 为类的类型 ，，‘菜单1’ 是String 为字符类型， 他们之间不能做比较。请问，我该如何解决！ 谢谢 各位大侠 赐教。。

你的句柄都拿到了，直接发关闭消息给窗体最好是同步消息，异步的话免得你的RzPageControl1.ActivePage释放了而窗体没释放导致错误，不需要窗体类转换。

[缘中人]

TRzTabSheet=‘菜单1’ 一个是类，一个是字符串，当然报错了。 Caption:='menu1'; Name:='name1';

[sedshy]

TRzTabSheet.Caption=‘菜单1’

[ProgramSir]

关闭窗口的时候，直接删除Tab 不就可了

[zhoudagezhoudage]

都不能解决 问题, 最后 使用 form.Free;解决 了 ...谢谢 各位 的 解决 方 案 , 虽然 没有解决 问题, 同样 非常 感谢大家,, 大家辛苦了!