to 草原 谢谢,我看到以前的论坛离线包,其实你是高手.我试一下如下rocedure BTN1CLK;beginmywnd:=Tmywnd.handleneeded;//访问myqwnd的窗口句柄以让它用新的参数创建窗口;end;procedure BTN2clk;beginmywnd.destroywnd;end;点BTN1的时候出现一个窗口,再点BTN2,窗口又出来;再点BTN1,出现两个窗口,点BTN2有一个被销毁,另一个没有被销毁..这样循环一次多一个窗口没有被销毁退出程序时出现错误:'control'没有parentwindow;这样的方法应该是不行的,应该怎么做呢?我是新手,