selbst das hier funktioniert nicht für enthaltene Wincontrols, sofern diese nicht sichtbar sind...
Delphi-Quellcode:
var
i:Integer;
begin
Pagecontrol1.Pages[0].PaintTo(Image1.Canvas,0,0);
for I := 0 to Pagecontrol1.Pages[0].ComponentCount - 1 do
begin
if Pagecontrol1.Pages[0].Components[i] is TWinControl then
begin
TWinControl(Pagecontrol1.Pages[0].Components[i]).PaintTo(Image1.Canvas,TWinControl(Pagecontrol1.Pages[0].Components[i]).BoundsRect.Left,TWinControl(Pagecontrol1.Pages[0].Components[i]).BoundsRect.top);
end;
end;
end;