一个比较简单的问题

我在制作一个多表单的程序时，要求在主表单Form1中选择一个图片，然后按下一个按钮，这时会弹出Form2,在Form2中把图片显示出来。现在我要求在Form2中显示时，Form2该正好与图象的大小一样大，该怎样做？谢谢

解决方案 »

  1.   

    在Form2的OnShow事件中写如下代码：Self.Image1.AutoSize:=True;
    Self.AutoSize:=True;
      

  2.   

    把两个Image大小设一样不行吗
      

  3.   

    这当然不行。两个IMAGE不在同一表单中，一个要求显示缩略图，一个要求显示全图
      

  4.   

    在Form2的OnShow事件中写如下代码：Self.Image1.AutoSize:=True;
    Self.AutoSize:=True;把两个Image大小设一样
      

  5.   

    procedure TForm1.FormShow(Sender: TObject);
    begin
      Image1.AutoSize := True;
      Image1.Left := 0;
      Image1.Top := 0;
      ClientWidth := Image1.Width;
      ClientHeight := Image1.Height;
    end;
      

  6.   

    好像把他们的AutoSize设成True，也行啊
      

  7.   

    同意楼上的.
    你还可以:在form2中设计一个图片框,控制其图片来源和大小属性来显示.
    图片大小和图片来源当然也在form1中得到在form1中得到,