先前看過站長的delphi的範例, 自己轉成BCB時卻一直失敗, 因此想請教各位大大,我轉的程式那裡有錯, 或要include什麼檔案,如果可以的話, 請幫我解釋/*...*/號之間程式的作用, 謝謝各位大大 void __fastcall TForm1::FormCreate(TObject *Sender) { /* FClientInstance = MakeObjectInstance(ClientWndProc); FPrevClientProc = Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC)); SetWindowLong(ClientHandle, GWL_WNDPROC, (Word)(FClientInstance)); */ } //-------------------------------------------------------------------- void __fastcall TForm1::ClientWndProc(TMessage &Message) { HDC MyDC; Word Ro,Co; /* if (Message.Msg == WM_ERASEBKGND){ MyDC = TWMEraseBkGnd(Message).DC; SetStretchBltMode (MyDC,COLORONCOLOR); */ if (types==0) // 放大 { StretchBlt( MyDC, 0,0, Form1->ClientWidth,Form1->ClientHeight, Image1->Picture->Bitmap->Canvas->Handle, 0,0, Image1->Picture->Width, Image1->Picture->Height, SRCCOPY); } else // 重覆貼 { for (Ro = 0;Ro < ClientHeight / Image1->Picture->Height;Ro ) for (Co = 0;Co < ClientWidth / Image1->Picture->Width;Co ) BitBlt(MyDC, Co*Image1->Picture->Width, Ro*Image1->Picture->Height, Image1->Picture->Width, Image1->Picture->Height, Image1->Picture->Bitmap->Canvas->Handle, 0, 0, SRCCOPY); } Message.Result = 1; } else /* Message.Result = CallWindowProc(FPrevClientProc, ClientHandle, Message.Msg, Message.WParam, Message.LParam); */ } //-------------------------------------------------------------------- 一個初學者