设置窗体与分辨率大小适应

 

 

 摘抄自CSDN

 

 

假设你在800*600的分辨率下设计的form,第一步：  
  先设置Form.scale:=false;  
  然后  
  inplementation  
  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;  
   
  下一步，要让每个子控制的字体改变到合适的大小：  
  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;