怎么我将窗体的FormStyle为fsMDIForm后,运行后窗体里的image不见了

Question

在form的create里写procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.Brush.Bitmap.Assign(image1.Picture.Bitmap);
end;

Answer 1

    第一步：创建一个新的工程。
    第二步：将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

上面代码GetDC后要ReleaseDC，另外，如果背景图片是一幅大图片的话，不需要做循环procedure TMainForm.ClientWndProc(var Message :TMessage);
var
 TempCanvas:TCanvas;
begin
 with Message do
 if Msg = WM_ERASEBKGND  then
 begin
        TempCanvas:=TCanvas.Create;
        try
        TempCanvas.Handle:=GetDC(MainForm.ClientHandle);//MainForm是主窗体
         with TempCanvas do
             Draw(0,0,Image1.Picture.Graphic);  //画图
        finally
         ReleaseDC(MainForm.Clienthandle,TempCanvas.Handle);
         TempCanvas.Free;                 
        end;
  Result :=1 ;   
end
 else
 Result := CallWindowProc(FPrevClientProc,ClientHandle,Msg,wParam,lParam);
end;

Answer 3

不好意思一下忘了这个著名的BUG了你用form1.Brush.Bitmap:=image1.Picture.Bitmap;绝对没问题