还是闪的。 var WM_SETREDRAW : DWORD; f : TForm2; begin WM_SETREDRAW := $000B; SendMessage(ClientHandle,WM_SETREDRAW,0,0); f:= TForm2.Create(Application); f.Show; SendMessage(ClientHandle,WM_SETREDRAW,1,0); ReDrawWindow(ClientHandle,nil,0,RDW_INVALIDATE or RDW_ALLCHILDREN);