在窗体的某一处显示图片

#pragma resource "IMAGE.RES"     调用资源文件

void __fastcall TFrmMain::LoadImageX(TObject* Sender,char *sRc,int iX,int iY,int iWidth,int iHeight)
{
    HDC dc;
    HBITMAP bit,oldbit;
    BITMAP bm;
    dc = CreateCompatibleDC(this->Canvas->Handle);
    bit = LoadBitmap(HInstance,sRc);
    GetObject(bit,sizeof(bm),&bm);
    oldbit = SelectObject(dc,bit);
    StretchBlt(((TForm*)Sender)->Canvas->Handle,iX,iY,iWidth,iHeight,dc,0,0,bm.bmWidth,bm.bmHeight,SRCCOPY);
    DeleteObject(oldbit);
    DeleteDC(dc);
    return;
}

                                        

调用    LoadImageX(FrmMain,"A020",0,0,800,lblCaption->Height);