Toolbar mit Beginupdate

[API]

guten Abend!

Habe ich etwas übersehen oder hat die TToolbar kein beginupdate...endupdate?
Brauche nämlich eins weil ich dynamisch Buttons erzeuge. Sonst flackerts.

Wenn ich LockControl verwende, dann reagieren die Buttons auf OnClick nicht mehr...

Wie könnte ich es sonst noch machen?
Bin dankbar für jeden Tipp!

Delphi-Quellcode:

procedure LockControl(c: TWinControl; bLock: Boolean);
begin
  if (c = nil) or (c.Handle = 0) then Exit;
  if bLock 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;

[Ralf Kaiser]

Hi,

versuchs mal mit:

Delphi-Quellcode:

LockWindowUpdate(GetDesktopWindow);
try
  [...Toolbar verändern...]
finally
  LockWindowUpdate(0);
end;

Sollte eigentlich ein Flackern vermeiden.

Ciao,
Ralf