在MDI的主窗口里沒PICTURE或Glyph的屬性，我想要加一圖片作為底片，該如何做?

Question

mdiform.cavas.brush.bitmap
================Try=================

Answer 1

你看那否加一个容器！若PICTURER什么的！！

Answer 2

procedure TMainForm.FormCreate(Sender: TObject);
var bitmap:Tbitmap;
begin
Bitmap:=TBitmap.Create;
try
   Bitmap.loadfromFile('..\bmp\02.bmp');
   mainform.Canvas.Brush.bitmap:=bitmap;
   mainform.Canvas.FillRect(rect(0,0,100,100));
finally
   mainform.Canvas.Brush.Bitmap:=nil;
   Bitmap.Free;
end;
end;
這樣做之后還是顯示不出來，WHY？

Answer 3

在MDI程序中,由于MDI的主窗口一般的功能是提供子窗口显示的位置和提供菜单、工具条、状态条等，而窗口的客户区则一般不会有其它的用途,所以Image运行时会不见。不过要显示也可以，你可以试一下以下方法：
    第一步：创建一个新的工程。
    第二步：将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。