在大部份软件的主界面上，都有这样的界面，XXXXXXX系统XX版，下面是版权所有：XXXXXXX公司copyrignt2005 ，这两行字是可以自己写上去的。有时背景就是白色的，不好看。我想放一个IMAGE控件，有个图片背景，有的图片是很小的，大概只有要放的背景位置的10%样子，把它拉伸了就要变形变糊，不拉它又盖不到所要的其它地方，如何处理呢？还有就是图片要透明，否则那两行文字要遮住的。我是新手，高手指点时能否详细一点。谢谢！

------
我的编程起步于ktop，我将永远支持ktop

还有就是请问如何让图片在1024*768和800*600显示模式下都能正常

------
我的编程起步于ktop，我将永远支持ktop

老實說，您這樣的敘述。 我無法想像<--- 看不懂。 建議 傳個圖片 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

引言: 老實說，您這樣的敘述。 我無法想像<--- 看不懂。 建議 傳個圖片 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

那么我再说的清楚一点。如果有一个图片要做界面背景，但只有30*30大小样子，如何能平铺成800*600大小而不失真，而且在1024*768下也能自动适应大小。

關於圖片放大不失真。 站內的討論有很多。 可以參考 http://delphi.ktop.com.tw/topic.php?topic_id=23589 用內差法 搜尋 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

内差法是不是这个： procedure TForm1.BitBtn2Click(Sender: TObject); var x1,y1,x2,y2,x0,y0,dx,dy,x,y:integer; begin x1:=image1.width; y1:=image1.height; x2:=image2.width; y2:=image2.height; dx:=0; x0:=0; for x:=0 to image2.width-1 do begin dy:=0; y0:=0; dx:=dx x1; while dx>=x2 do begin inc(x0); dx:=dx-x2; end; for y:=0 to image2.height-1 do begin dy:=dy y1; while dy>=y2 do begin inc(y0); dy:=dy-y2; end; image2.Canvas.Pixels[x,y]:=image1.Canvas.Pixels[x0,y0]; end; end; end; 因为我是初学入门者，我大概试了一下，image1是原图，如果设定了image2的大小就能放大或者缩小多少了。有一个问题是，我如取得用户的屏幕分辨率，（一般为800*600或1024*768)并且使image2的大小等于用户的屏幕分辨率。

------
我的编程起步于ktop，我将永远支持ktop

关于取用户屏幕分辨率可用GetDeviceCaps 参考 http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/devcons_88s3.asp