如何在MDI主窗口中加入背景图片

Question

我在MDI主窗口中加入Image控件Align为alClient，放入图片，可是运行之后Image会往右移，左边有一大块没有图片！怎么解决？？？

Answer 1

在MDI程序中,由于MDI的主窗口一般的功能是提供子窗口显示的位置和提供菜单、工具条、状态条等，而窗口的客户区则一般不会有其它的用途，如果在这里画上一些软件的标志、公司的标志或者其它的背景图案的话，不仅可以使MDI的主窗口更加充实、美观，而且还可以更加突出公司的形象和增加公司标志在客户心中的地位。     由于MDI主窗口的特性，使用普通OnPaint和使用TImage等方法都不会产生作用。下面将用编写一个简单的MDI程序来介绍如何实现。     第一步：打开Delphi(Delphi 1,2,3都可以)，创建一个新的工程。     第二步：将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中的图像所铺满。

Answer 2

在Formshow的事件中加入Brush.Bitmap:=Image1.Picture.Bitmap;你试试看

Answer 3

delphi 5 以下的按   guestman(天涯浪子) 的方法就可以了D6 的修改了一点点，不过还不是很好D7 的就直接可以用了，就像普通的一样

Answer 4

MDI加入图片的简单方法：图片将自动填充整个区域:
在FORM上放一个IMAGE（将VISIBLE设为FALSE），并加载一幅图
（必须是BMP），在ONSHOW中添加代码：
procedure TForm1.FormShow(Sender: TObject);
begin
  Brush.Bitmap := Image1.Picture.Bitmap;
end;
你用我的代码就可以了，而且对MDI和非MDI都实用

Answer 5

TO:popmailzjw(一万吨爱)
D6 的修改了一点点，不过还不是很好
要怎样子做才能做得好呢，我很急！

Answer 6

除了吧align设成alclient，把center设成true，试试。

Answer 7

注意图片的格式是bmp，否则可能会报除0错误！