Graphics::TBitmap* Bmp=new Graphics::TBitmap;
Bmp->Width=Dwidth;//目标宽高
Bmp->Height=Dheight;
SendMessage(DHandle,WM_PAINT,WPARAM(Bmp->Canvas->Handle),0);
//--------------------------------------------------------------------------------
SendMessage( Form2->Handle, WM_PRINT, (WPARAM)Canvas->Handle,
(LPARAM)PRF_NONCLIENT | PRF_CLIENT | PRF_CHILDREN | PRF_CHECKVISIBLE);