搞delphi这么久了，还有个基础的问题不会：怎样允许/禁止form刷新呢？

Question

太可恶了我。

Answer 1

消息
procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
implementation
procedure TForm1.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin
  message.Result:=888；
end;

Answer 2

LockWindowUpdate(HWND hWndLock)
锁定指定窗口的刷新；如果参数为空，则取消锁定

Answer 3

刚刚找了一下，就不知道管用不？还没试呢。with Canvas do
  begin
    Lock;
......
    UnLock;
  end;

Answer 4

with Canvas do
  begin
    Lock;
......
    UnLock;
  end;
好象也不行，有闪烁现象。