一个快捷的MDI主窗体添加背景图片的方法 (10分)

一个快捷的MDI主窗体添加背景图片的方法
procedure TForm1.FormCreate(Sender: TObject);
var
b: TBitmap;
begin
…
b := TBitmap.Create;
b.LoadFromFile('c:/Res/desktop.bmp');
Self.Brush.Bitmap := b;
…
end;

也可以在主窗口中放个image控件.

对啊，用image试试，可以放。

to:gztiger,你的方法以前我也用过,但是好像在某些win98上运行时,会报非法操作.我碰到过.这只是我的一点体会而已,不一定对.

用image是可以，但較復雜：
第一步：打开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));

to bluedna:
呵呵...在98裡我沒試過。

四，五，六实现什么功能啊（我菜鸟）
到第三步不就OK了