加30分，关于在MDIMAINFORM 中显示图片的问题。

Question

网络上这样的网页的，你自己找找看

Answer 1

    1.创建一个新的工程文件
    2.设置form的FormStyle属性为fsMDIForm
    3.放置一个image控件在form上，并选择一幅要显示在mdiform上的图片
    4.在{ Private Declarations } 定义如下:           FClientInstance : TFarProc;
           FPrevClientProc : TFarProc;           procedure ClientWndProc(var Message: TMessage);    5.procedure TMainForm.ClientWndProc(var Message: TMessage);
       var
         Dc : hDC;
         Row : Integer;
         Col : Integer;
       begin
         with Message do
           case Msg of
             WM_ERASEBKGND:
             begin
               Dc := TWMEraseBkGnd(Message).Dc;               for Row := 0 to ClientHeight div Image1.Picture.Height do
                 for Col := 0 to ClientWidth div Image1.Picture.Width do
                   BitBlt(Dc,
                      Col * Image1.Picture.Width,
                      Row * Image1.Picture.Height,
                      Image1.Picture.Width,
                      Image1.Picture.Height,
                      Image1.Picture.Bitmap.Canvas.Handle,
                      0,
                      0,                      SRCCOPY);
                 Result := 1;
             end;
             else
               Result := CallWindowProc(FPrevClientProc,
                                        ClientHandle,
                                        Msg,
                                        wParam,
                                        lParam);
         end;
       end;    6.在 from的OnCreate 事件中写入如下代码：          FClientInstance := MakeObjectInstance(ClientWndProc);          FPrevClientProc := Pointer(GetWindowLong(ClientHandle,
                                     GWL_WNDPROC));
          SetWindowLong(ClientHandle,
                        GWL_WNDPROC, LongInt(FClientInstance));

Answer 2

这个方法挺好，我不知道怎么给分呀，告诉我怎么给你。

Answer 3

这个方法还有一个缺点，用有的图片可以显示，用有些图片却会出现除数为0的错误，不知道怎么办？？？？？？

Answer 4

但是在程序运行时再画个图在背景上怎么画？