首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理
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);

end;

这个方法更好些,基本上不闪了。(网上整理),需要引用windows.