Refresh unterbinden (Begin/EndUpdate)

[shmia]

Die API Funktion LockWindowUpdate ist eine Fehlkonstruktion, da man nur ein Window sperren kann.
Besser ist folgendes:

Delphi-Quellcode:

// von TeamB
procedure LockControl(c: TWinControl; lock: boolean);
begin
   if (c = nil) or (c.Handle = 0) then exit;
   if lock then SendMessage(c.Handle, WM_SETREDRAW, 0, 0)
   else begin
      SendMessage(c.Handle, WM_SETREDRAW, 1, 0);
      RedrawWindow(c.Handle, nil, 0,
         RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN);
   end;
end;