解决Delphi中屏幕闪烁的问题

应用场景

  最近设计一个倒计时的功能，在Label中每500毫秒显示倒计时的时间，无奈时不时会出现闪烁，感觉刺眼睛想办法解决之。

解决方案

  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;