若我把解析度改了 我可以用以下程式來維持原來form的大小

const
  ScreenWidth:LongInt=800;
  ScreenHeight:LongInt=600;
  Height:=longint(Height)*longint(Screen.Height)DIV ScreenHeight;
  Width:=longint(Width)*longint(Screen.Width)DIV ScreenWidth;

那麼font的size要如何維持呢? 謝謝!!

Form裡的Scaled設為False應該就不會受解析度影響字型了..

我找到了一篇相關的文章 在http://community.borland.com/article/0,1410,15944,00.html 覺得蠻有用的。    其中有一段是用來改變字的大小的

type
  TFooClass = class(TControl); { needed to get at protected }
                               { font property }     var
  i: integer;
begin
  for i := ControlCount - 1 downto 0 do
    TFooClass(Controls[i]).Font.Size := 
        (NewFormWidth div OldFormWidth) * 
        TFooClass(Controls[i]).Font.Size;
end;

請問這裡的NewFormWidth和OldFormWidth是指什麼呢?? 是指在還未Scaled之前的FormWith，和Scaled以後的FormWidth嗎? 如是這樣，我在設計時是用800*600 原form的width是768，後來調成1024*768後變成983 而上面的式子一算 (NewFormWidth div OldFormWidth) * TFooClass(Controls[i]).Font.Size; font.size 還是 乘於 1 (div是整數運算) 故font.size不會變 這樣會不會怪怪的， 我是想說font能不能也跟著form一樣也變大呢??

有兩個函數可參考 預設解析度若為 800*600 1. Curform.ScaleBy(Screen.width,800); 2. ChangeScale(Screen.width,800); 楊文良

------
楊文良