重载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);
}