procedure TForm1.FormResize(Sender: TObject); begin InvalidateRect(Form1.Handle, nil, false); end;
刷新整个画布
原文：http://www.cnblogs.com/yzryc/p/6373627.html
