在MdI窗中加入图片(100分)

我在MdIForm窗中用Image加入图片,运行时却显示不出来。如何能让它显示出来

用ahm控件可以搞定

方法有多种，我这里介绍两种：
1、使用DELPHI6，只要简单地把TImage组件往窗体上一放就搞定了。
2、先把
MainForm.Canvas.Handle 设置成　GetWindowDC(MainForm.Handle);
再拦截WM＿ERASEBKGND消息，在消息处理中用Canvas把需要的图片Copy到
　　主窗体上。
　　

呜~~~~~
都让楼上给说了

能给出源代码吗

我来给你源代码，只要在mdi窗体中加一个timage就行了。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
procedure FormShow(Sender: TObject);
private
FClientInstance,
FPrevClientProc : TFarProc;
procedure ClientWndProc(var Message: TMessage);
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
FClientInstance := MakeObjectInstance(ClientWndProc);
FPrevClientProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC));
SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FClientInstance));

end;
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;
end.

thanks