Einfach mal probeweise diese Klassendeklaration vor das Form schreiben, in dem die Paintbox liegt.
Delphi-Quellcode:
type
TPaintBox =
class(
Vcl.ExtCtrls.TPaintBox)
private
procedure WMEraseBkgnd(
var Message: TWmEraseBkgnd);
message WM_ERASEBKGND;
end;
Die Implementierung ist relativ simpel.
Delphi-Quellcode:
procedure TPaintBox.WMEraseBkgnd(var Message: TWmEraseBkgnd);
begin
Message.Result := 1;
end;