delphi 解决屏幕闪烁

1、解决窗体闪烁问题
具体代码： 

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