MDI主窗口中如何加入图片，请高手回答！UP者有分！

Question

加入一个Timage,Align设成alClient,Stretch设成True.

Answer 1

正确代码：
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;          

Answer 2

同意楼上，但必须是delphi6.如果不是则在Form的OnCreate事件中:
Brush.Bitmap := Image1.Picture.Bitmap;

Answer 3

同上,不过最好在TForm的OnCreate中加入,Image1.loadfromfile(filename);
这样就不会加大可执行文件体积.

Answer 4

Timage,Align设成alClient,Stretch设成True.

Answer 5

加入背景如下：
 1、定义Bitmap；
 2、初始化Form.create:
     Bitmap:=Tbitmap.create;
     Bitmap.loadFromFile('aa.bmp')
 3、在form.destroy中
     var x,y:integer;
     begin
      y:=0;
     while y<height do
     begin
        x:=0;
        while x<width do
        begin
          Canvas.dram(x,y,Bitmap);
          x:=x+Bitmap.width;
        end;
      y:=y+Bitmap.height;
    end;
    end;

Answer 6

Snakeguo(楠) 
你说的这样回有问题的，当你有工具条的时候，你的背景图片上面会留一个空白。

Answer 7

wyj1974(迷茫的帅哥) 
你说的要写到这个消息里边吗？
procedure ClientWndProc(var Message: TMessage);

Answer 8

使MDI窗口有一个背景图象或使它平铺 
CoDelphi.com 　摘　要：我怎样使我的MDI窗口有一个背景图象或使它平铺？ 
　关键字：多文档界面 背景 图象 平铺 
　类　别：用户界面 
--------------------------------------------------------------------------------
    确定你已在在你的主窗体对象中加入了下面的变量: 
      FClientInstance : TFarProc; 
      FPrevClientProc : TFarProc; 
{ MDI的背景代码 } 
procedure TMainForm.ClientWndProc(var Message: TMessage); 
var 
  Dc : hDC; 
  Row : Integer; 
  Col : Integer; 
begin 
  with Message do 
    case Msg of 
      WM_ERASEBKGND: 
      begin 
        Dc := TWMEraseBkGnd(Message).Dc; 
        // 在DC上平铺图象 
        for Row := 0 to ClientHeight div Image1.Picture.Height do 
          for Col := 0 to ClientWidth div Image1.Picture.Width do 
            BitBlt(Dc, 
               Col * Image1.Picture.Width, 
               Row * 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; - 在你的主窗体的OnShow事件中加入以下代码:   // MDI背景平铺代码，与WndProc链接 
    FClientInstance := MakeObjectInstance(ClientWndProc); 
    FPrevClientProc := Pointer(GetWindowLong(ClientHandle,GWL_WNDPROC)); 
    SetWindowLong(ClientHandle,GWL_WNDPROC,LongInt(FClientInstance)); - 现在你有一个背景了!  

Answer 9

我通过消息WM_PAINT来做，但是他根本就没有触发这个消息

Answer 10

往mdi窗口中添加一个image控件，设置好它的图片。
在mdiForm的Create事件中写入 
   Self.brush.bitmap:=image1.picture.bitmap;
=============================================
以上方法存在的问题是：不能很好的解决刷新问题。

Answer 11

在MdiForm上放置Image1，选择图片
在MdiFormCreate事件中
  Brush.Bitmap := Image1.Picture.Bitmap;

Answer 12

在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 13

Snakeguo(楠) 的方法最简单实用，我一直都这么干

Answer 14

最好的方法是DELOHI5编程指南提到的方法，你去看看吧

Answer 15

S_caijing(star) 
你提供的方法中我在DELPHI6中会有异常，
通过断点
执行BitBlt后
Image1.Picture.Height 和WIDTH会都变为0，
DIV后会有异常
不知是什么原因
我的图片是JPG格式

Answer 16

通过，不过图片格式不可以为JPG格式，只能为BMP格式