如何在mdi父窗体上显示一副图片？

Question

还可以直接在Form上自己画～～

Answer 1

在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。    现在你可以编译运行这个程序，你会发现，Image元件并不会在Form上显示出来，但是整个Form的客户区域被Image中的图像所铺满。

Answer 2

procedure TForm1.FormPaint(Sender: TObject);
var
  image1:tbitmap;
  filename:string;///图片路径
begin
  image1:=tbitmap.Create;
  image1.LoadFromfile(filename);
  Canvas.Draw(left,top,image1);end;注意：要放到onPaint事件里
给分啊!!!!

Answer 3

《Delphi5开发人员指南》里有现成的例子

Answer 4

aft_st_sd(浪子)　我试过了 不行