Moin!
Der wichtige Teil aus der TWinControl.PaintTo():
Delphi-Quellcode:
Perform(WM_ERASEBKGND,
DC, 0);
Perform(WM_PAINT,
DC, 0);
if FWinControls <>
nil then
for I := 0
to FWinControls.Count - 1
do
with TWinControl(FWinControls[I])
do
if Visible
then PaintTo(
DC, Left, Top);
RestoreDC(
DC, SaveIndex);
Er fügt direkt den
DC auf den gemalt werden soll (Parameter) zu der WM_PAINT hinzu, somit sollte alles gemalt werden. Auch der explizite Aufruf der WinControls sollte für die Childs greifen...
MfG
Muetze1