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;