我想要將TBitBtn,TEdit,TShape元件畫在TImage上列印出來,我想請問各位高手要如何將上述的三個元件能夠畫在TImage上,而我只要將TImage丟給Print列印就好了 我現在只會在畫面上將三種元件顯示在TImage上,而不會畫在TImage上,還請各位大大教我!!!

markov您好:  若元件有handle可用下面方式達到您的目的

Graphics::TBitmap*BMP=new Graphics::TBitmap();
 TCanvas *MyCanvas= new TCanvas;;
 TRect rect = BitBtn1->ClientRect;
 HDC dc = GetDC(BitBtn1->Handle);
 MyCanvas->Handle = dc;
 BMP->Width = rect.Right - rect.Left;
 BMP->Height = rect.Bottom - rect.Top;
 BMP->Canvas->CopyRect(rect,MyCanvas,rect);
 Image1->Picture->Assign(BMP);
 delete MyCanvas;
 delete BMP;

Tshape您可以使其Parent為Panel(有handle),迂迴的方式達到您的目的 順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～ 發表人 -

謝謝! 我沒有想到可以用GetDC

雖然已經結案了 但是我在試TShape時發現不會動作,是不是我那裡寫錯了! 還請各位大大指教!     

 TShape *shape=new TShape(Panel1);
 shape->Parent=Panel1;
 shape->Brush->Color=clGreen;
 shape->Shape=stCircle;     Graphics::TBitmap*BMP=new Graphics::TBitmap();
 TCanvas *MyCanvas= new TCanvas;;
 TRect rect = shape->ClientRect;
 HDC dc = GetDC(shape->Parent->Handle);
 MyCanvas->Handle = dc;
 BMP->Width = rect.Right - rect.Left;
 BMP->Height = rect.Bottom - rect.Top;
 BMP->Canvas->CopyRect(rect,MyCanvas,rect);
 Image1->Picture->Assign(BMP);
 delete MyCanvas;
 delete BMP;
 delete shape;
 

markov您好: 試試下面的code

TShape *shape=new TShape(Panel1);
 shape->Parent=Panel1;
 shape->Brush->Color=clGreen;
 shape->Shape=stCircle;
 Application->ProcessMessages();
 Graphics::TBitmap*BMP=new Graphics::TBitmap();
 TCanvas *MyCanvas= new TCanvas;;
 TRect rect = shape->ClientRect;
 HDC dc = GetDC(shape->Parent->Handle);
 MyCanvas->Handle = dc;
 BMP->Width = rect.Right - rect.Left;
 BMP->Height = rect.Bottom - rect.Top;
 BMP->Canvas->CopyRect(rect,MyCanvas,rect);
 Image1->Picture->Assign(BMP);
 delete MyCanvas;
 delete BMP;
 delete shape;

順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～

真的可以了也 太感謝taishyang了! 十二萬分感激