請教各位先進，小弟在15吋的LCD寫一個小遊戲，螢幕解析度也先在程式中設定，（ex.800×600，全螢幕執行），可是換到17吋的環境時，元件、距離等均會改變；所以小弟想是否有辦法可以將整個環境鎖死在15吋的環境中，讓程式在17吋螢幕中也只有呈現15吋大小的視窗環境？不知道各位先進有沒有其它建議或做法可供參考，懇請賜教！謝謝！

貼上delphi的code,希望多少能有些幫助    出處  http://www.indiavibes.com/india/delphi/dtrkscr.htm    

    implementation
const
    ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
    ScreenHeight: LongInt = 600;    {$R *.DFM}    procedure TForm1.FormCreate(Sender: TObject);
begin
    scaled := true;
    if (screen.width <> ScreenWidth) then
    begin
        height := longint(height) * longint(screen.height) DIV ScreenHeight;
        width := longint(width) * longint(screen.width) DIV ScreenWidth;
        scaleBy(screen.width, ScreenWidth);
    end;
end;    

強制轉換畫面解析度, 會造成顯示效果不佳的問題, 尤其是在 LCD Monitor 更是明顯. 比較好的做法是不要用全螢幕模式, 然後視窗的大小固定為 800x600 , 若是要擋住背景的畫面, 用一張全黑的 FORM 放在背景即可. ...Aquarius

------
水瓶男的blog: http://791909.blogspot.com

謝謝hahalin先生；delphi的code不是很了解，研究研究！ 謝謝aquarius先生；全螢幕是有其它用途，所以不得不…不知道可不可以利用您的做法，當在17吋的環境時，用一個form放在背景全黑，中間出現15吋大小的執行視窗呢？

引言: 謝謝hahalin先生；delphi的code不是很了解，研究研究！ 謝謝aquarius先生；全螢幕是有其它用途，所以不得不…不知道可不可以利用您的做法，當在17吋的環境時，用一個form放在背景全黑，中間出現15吋大小的執行視窗呢？

我講的就是這樣呀! 放一個 FORM 填滿整個畫面當背景, 然後真正要輸出的那個 FORM 用固定大小來顯示在畫面中央, 這樣就不用考慮到不同解析度的問題. 當然, 這樣還是有缺點的, 高解析度, 例如在 1600*1200 的解析度下, 800*600的 FORM 就只剩下中間一小塊.... 直接切螢幕的解析度當然也是一種方法, 只是一般而言, 在寫程式時最好不要亂改 USER 的系統設定值, 不然很容易引起 USER 的反彈. ...Aquarius