给你一个自己转换分辨率的函数:
function GetBestMode(X,Y:word):integer;
//得到当前分辨率(x,y)的最佳模式 (刷新率最大不超过85)
var
  lpDevMode: TDeviceMode;
  i:integer;
  s:boolean;
  temSysdisplayF,temSysBitSperPel:word;
begin
       s:=true;
       result:=0;
       i:=0;
       temSysdisplayF:=0;
       temSysBitSperPel:=0;
       while s=true  do
       begin
        s:=EnumDisplaySettings(nil,i,lpDevMode);
        lpDevMode.dmFields := DM_PELSWIDTH or
                              DM_PELSHEIGHT or
                              DM_DISPLAYFREQUENCY or
                              DM_BITSPERPEL;
        if (lpDevMode.dmPelsWidth=X) and (lpDevMode.dmPelsHeight=Y) then
         if (lpDevMode.dmDisplayFrequency<=85) and (lpDevMode.dmDisplayFrequency>=temSysDisplayF) and (lpDevMode.dmBitsPerPel>=temSysBitSperPel) then
         begin
           temSysdisplayF:=lpDevMode.dmDisplayFrequency;
           temSysBitSperPel:=lpDevMode.dmBitsPerPel;
           result:=i;
         end;
        inc(i,1);
       end;
end;
function cDynamicResolution(lpModeNum:integer):bool;
//更改显示状态到lpmodenum模式
var
  lpDevMode: TDeviceMode;
begin
  result:=EnumDisplaySettings(nil,lpModeNum,lpDevMode);
  if ChangeDisplaySettings(lpDevMode,CDS_UPDATEREGISTRY) = DISP_CHANGE_SUCCESSFUL then
      result:=true else
      result:=false;
end;

解决方案 »

  1.   

    有二種辦法:
    1,強制更改分辨率,改為1024*768
    2,假設你在800*600的分辨率下的form,第一步:
    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;