這段：有些元件不會被畫出來，為什麼？

procedure TForm1.Button2Click(Sender: TObject);
var
Abitmap: TBitmap;
begin

Abitmap:= TBitmap.Create;
try
Abitmap.Height:= Panel1.ClientHeight;
Abitmap.Width:= Panel1.ClientWidth;
Panel1.PaintTo(Abitmap.Canvas,0,0);

Image1.Picture.Assign(Abitmap);
finally
Abitmap.Free;
end;

end;

這段：出現一段訊息對話框：沒在 Delphi for Win32 試過，因為 Delphi for Win32 的 PaintTo 可以正常運作。

procedure TForm1.Button3Click(Sender: TObject);
var
Abitmap: TBitmap;
i: Integer;
begin

Abitmap:= TBitmap.Create;
try
Abitmap.Height:= Panel1.ClientHeight;
Abitmap.Width:= Panel1.ClientWidth;

for i:= 0 to Panel1.ControlCount-1 do
with TWinControl(Panel1.Controls[i]) do
if Visible then
PaintTo(Abitmap.Canvas, Left, Top);

Image1.Picture.Assign(Abitmap);
finally
Abitmap.Free;
end;

end;