本文整理自网络,侵删。
所谓双缓冲就是先画到内存画布(如: TBitmap), 然后再转帖到目的地.
譬如下面小程序:
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 100;
Color := clWhite;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Canvas.Pen.Color := Random($FFFFFF);
Canvas.MoveTo(Random(ClientWidth), Random(ClientHeight));
Canvas.LineTo(Random(ClientWidth), Random(ClientHeight));
end;
改为双缓冲绘图可以是:
var
bit: TBitmap;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 100;
bit := TBitmap.Create;
bit.Width := ClientWidth;
bit.Height := ClientHeight;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
bit.Canvas.Pen.Color := Random($FFFFFF);
bit.Canvas.MoveTo(Random(bit.Width), Random(bit.Height));
bit.Canvas.LineTo(Random(bit.Width), Random(bit.Height));
Self.Canvas.Draw(0, 0, bit);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
bit.Free;
end;
相关阅读 >>
Delphi中indy10 的idtcpserver断开客户端连接报错问题的解决办法
Delphi webbrowser同时访问两个网址导致程序出错的解决办法
Delphi 10.4.1 edgebrowser 模拟操作网页方法
Delphi获取flash文件的影片时长,原始尺寸,帧数等信息
更多相关阅读请进入《Delphi》频道 >>