BCB6.0 父窗体最小化时子窗体关闭不了

重载TForm的CreateParams函数即可

 

void __fastcall TForm2::FormCreate(TObject *Sender)

{

       void *Handle = MainForm-> Handle;

       long dwstyle = GetWindowLong(Handle,GWL_STYLE);

       this-> ParentWindow = GetDesktopWindow();

       SetWindowLong(this-> Handle,GWL_STYLE,dwstyle);

       SetActiveWindow(this-> Handle);

}