[转][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;

 

该方法解决窗体闪烁效果确实不错，在打开窗体时再也看不到控件未绘制出来时在留下的黑色巨型空白了。
ps：如原作者所说，要解决控件的闪烁问题，可以利用众所周知的方法，将所有控件的DoubleBuffered属性设置为True。