在MDIFORM上加上Image控件并加上图片，运行后好象没有显示出来，怎么解决？

Question

MDIFORM只容纳Toolbar和ChindForm;
如果要显示图片，可以override Paint方法。

Answer 1

可以详细说明一下override Paint的用法吗？

Answer 2

是不是想给主窗口加背景图？要置换clientwindow的windowproc捕获erasebkground消息。

Answer 3

在Form的Private中加入如下定义：
    FClientInstance,FPrevClientProc:TFarProc;
    procedure ClientWndProc(var Message:TMessage);
在实现(implementation)部分加入上述过程的具体内容：
procedure TForm1.ClientWndProc(var Message:TMessage);
var
 MyDC:hDC;
 Ro,Co:Word;
begin
 with Message do
  case Msg of
   WM_ERASEBKGND:
    begin
     MyDC:=TWMEraseBkGnd(Message).DC;
     for Ro:=0 to ClientHeight div Image1.Picture.Height do
      for Co:=0 to ClientWidth div Image1.Picture.Width do
       BitBlt(MyDC,Co*Image1.Picture.Width,Ro*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;在Form的Create事件中加入：
FClientInstance:=MakeObjectInstance(ClientWndProc);
FPrevClientProc:=Pointer(GetWindowLong(ClientHandle,GWL_WNDPROC));
SetWindowLong(ClientHandle,GWL_WNDPROC,LongInt(FClientInstance));当然，不要忘了在Form上放一个名字为Image1的TImage，而且其Picture要为BMP格式，OK！