Delphi：解决重绘造成的窗体闪烁问题

解决窗体闪烁问题

具体代码： 
1.在声明窗体类时加入： 
  private 
    procedure CreateParams(var Params: TCreateParams); override; 
2.在窗体实现部分加入： 
  procedure TFrm_Main.CreateParams(var Params: TCreateParams); 
  begin 
    inherited; 
    Params.ExStyle := 33554432; //0x 02 00 00 00 
  end;