在MDI主窗体中按常规设置背景图片，为何出现透明，什么都没有的现象？(30分)

请问：在MDI主窗体中按常规设置背景图片，为何出现透明，什么都没有的现象？
相关代码如下：
procedure TMain.clientwndproc(var message: tmessage);
VAR
MyDC : hDC;
begin
with Message do
case Msg of
WM_ERASEBKGND:
begin
MyDC := TWMEraseBkGnd(Message).DC;

StretchBlt(MyDC,
0 , 0 , ClientWidth , ClientHeight ,
Image1.Picture.Bitmap.canvas.Handle ,
0, 0 ,Image1.Picture.Width, Image1.Picture.Height,
SRCCOPY);
Result := 1;
end;
WM_PAINT: Result :=1;
else
Result := CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam);
end;
end;

procedure TMain.FormCreate(Sender: TObject);
begin
{Self.brush.bitmap:=Image1.picture.bitmap;
}
fclientinstance:=makeobjectinstance(clientwndproc);
fprevclientproc:=pointer(getwindowlong(clienthandle,GWL_WNDPROC));
setwindowlong(clienthandle,GWL_WNDPROC,longint(fclientinstance));

end;

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1425701
里面有我的代码,找找吧

這是別人寫的，借花獻佛吧，調試通過:

在MDI程序中,由于MDI的主窗口一般的功能是提供子窗口显示的位置和提供菜单、工具条、状态条等，而窗口的客户区则一般不会有其它的用途，如果在这里画上一些软件的标志、公司的标志或者其它的背景图案的话，不仅可以使MDI的主窗口更加充实、美观，而且还可以更加突出公司的形象和增加公司标志在客户心中的地位。

由于MDI主窗口的特性，使用普通OnPaint和使用TImage等方法都不会产生作用。下面将用编写一个简单的MDI程序来介绍如何实现。

第一步：打开Delphi,创建一个新的工程。

第二步：将Form1的FormStyle设置为fsMDIForm，设置成MDI的主窗口。
第三步：在Form1上增加一个Image元件，并选择要设置的背景到Image的Picture中。
第四步：在Form1的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;

第六步：在Form1的创建事件中加入：
FClientInstance := MakeObjectInstance(ClientWndProc);
FPrevClientProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC));
SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FClientInstance));

上面的步骤已经完成了MDI主窗口背景图案的设置，下面可以增加一个MDIChild窗口，实现MDI程序。

第七步：新增加一个Form，并将FormStyle设置为fsMDIChild。

现在你可以编译运行这个程序，你会发现，Image元件并不会在Form上显示出来，但是整个Form的客户区域被Image中的图像所铺满。

用一句话就可解决的不是吗？
procedure Tfmmain.FormCreate(Sender: TObject);
begin
Self.brush.bitmap:=img_bk.picture.Bitmap;
end;

我用你的程序可以成功！
你看一下你的image的属性有没有设置对。
楼上的程序也可以。。
我是用这样：
MDI的主窗口的scaled的属性为false
image1.Stretch:=true;
image1.Width:=frm_main.Width;
image1.Height:=frm_main.Height;
希望对你有帮助！

toDJ: 如果用Self.brush.bitmap:=img_bk.picture.Bitmap;
一句，则出现全部是白色，见不到图片。
to crazypc：按照你的写法，我试了一下，还是不行。为什么你们的可以，我的就不可以

//WM_PAINT: Result :=1;
??????????????????????????

MDIForm.Brush.Bitmap:=image1.Picture.Bitmap;
MDIForm是MDI窗体的Name
注意Image1里面必须有图片才不会出现白色的。

多人接受答案了。