把image的AutoSize属性设成True不就可以了吗?

解决方案 »

  1.   

    tm := TBitMap.Create;
    tm.width := 200;//假设图片大小为200×200
    tm.height := 200;
    tm.LoadFromFile('test.bmp');
    //假设image1的大小为100×100,显示后的图象是缩小的,
    //如果image1的大小改为400×400,显示后的图象是放大的
    //用这个原理,你可以制作类似Win98自带的屏幕放大镜程序
    image1.canvas.copyrect(image1.clientrect,tm.canvas,rect(0,0,tm.width,tm.height));
      

  2.   

    image autosize 设成True
    再把image放到scrollbox里即可