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.

相关文章:

  • 2022-12-23
  • 2022-12-23
  • 2022-12-23
  • 2021-08-04
  • 2022-12-23
  • 2022-12-23
  • 2021-12-09
  • 2022-12-23
猜你喜欢
  • 2022-12-23
  • 2021-11-26
  • 2022-12-23
  • 2021-10-09
  • 2022-12-23
  • 2022-12-23
  • 2021-09-03
相关资源
相似解决方案