正文
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;
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;
