给你一个自己转换分辨率的函数:
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;
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,強制更改分辨率,改為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;