请问delphi打开子窗口的闪烁问题解决方法？

Question

我需在当前的form 打开子窗口，并且要将子窗口调整为最大方式，即fmid.windowstate:=wsmaximizeed,我将子窗口的creat事件中加入windowstate:=wsmaximizeed,打开时子窗口能为最大显示，但打开子窗口时操作界面有闪烁感？用户能看到窗口的打开过程。怎样使用户不能看见界面的打开过程？

Answer 1

procedure TMainForm.LockWindowFlicker;
begin { Lock redraw }
  Perform(WM_SETREDRAW, 0, 0); //Lock the window
end;procedure TMainForm.UnlockWindowFlicker;
begin { Unlock redraw }
  Perform(WM_SETREDRAW, 1, 0); //Unlock the window and redraw
  RedrawWindow(Handle, nil, 0, RDW_FRAME + RDW_INVALIDATE +
    RDW_NOINTERNALPAINT + RDW_ALLCHILDREN + RDW_UPDATENOW);
end;

Answer 2

建立前Lock, 完成后Unlock，说穿了是自己重画，我试过很多方法，这种方法最好