请教设置分辨率的问题

DELPHI 中自适应表单的实现
石家庄军械工程学院五系王俊
---- 我们知道，屏幕分辨率的设置影响着表单布局，假设你的机器上屏幕分
辨率是800*600，而最终要分发应用的机器分辨率为640*480，或1024*768，这样你
原先设计的表单在新机器上势必会走样。这时你一定希望表单能自己适应
不同的分辨率，下面就有两种方法可供你参考。 ---- 一、根据新的分辨率自动重画表单及控件 ---- 先在表单单元的Interface 部分定义两个常量，表示设计时的屏幕的宽度和高
度（以像素为单位）。在表单的Create 事件中先判断当前分辨率是否与设计分
辨率相同，如果不同，调用表单的SCALE 过程重新能调整表单中控件的宽度
和高度。 Const
Orignwidth=800;
Orignheight=600;procedure TForm1.FormCreate(Sender: TObject);
begin
scaled:=true;
if (screen.width<>orignwidth) then
begin
height:=longint(height)*longint
(screen.height) div orignheight;
width:=longint(width)*longint
(screen.width) div orignwidth;
scaleby(screen.width , orignwidth);
end;
end;
---- SCALE 过程在调整控件宽度和高度的同时，也自动调整控件字体的大小，
以适应新的分辨率，但美中不足的是它并不改变控件的顶点坐标位置，也
就是说，该过程不改变控件之间的相对位置关系。要想调整控件之间的选
队相对位置，还需要自己编程实现，有兴趣的读者可试一试。
---- 二、将机器分辨率更改为设计时的分辨率 ---- 这种方法不改变表单本身，而是将屏幕分辨率更改为与表单设计时用到
的分辨率相同。它需要用到WINDOWS API 函数EnumDisplaySettings 和ChangeDisplaySettings，前
者取当前显示模式信息，后者则更改显示设置，具体参数的含义请参见
DELPHI 帮助。设计时宽度常量和高度常量的定义如方法一。 procedure TForm1.FormCreate(Sender: TObject);
var
devmode:tDevicemode;
begin
if screen.width<>orignwidth  then
begin
if  EnumDisplaySettings(nil,0,devmode)  then
begin
devmode.dmfields:=dm_pelswidth  OR  dm_pelsheight ;
devmode.dmpelswidth:=orignwidth; {宽度}
devmode.dmpelsheight:=orignheight;{高度}
ChangeDisplaySettings(devmode,0); {更改设置}
end;
end;
end;
---- 以上两种方法在WINDOWS 95+DELPHI 3.0 环境下均已通过，二者相比，前者是
主动适应，后者则是被动适应。

{设置显示器分辨率的过程-------------------------------------------------}
procedure SetScreenSize(W,H: Integer);
var
  DevMode: TDevMode;
begin
  if (w<640) or (h<480) then exit;
  if EnumDisplaySettings(nil,0,DevMode) then
  begin
    with DevMode do
    begin
      dmPelsWidth := W;
      dmPelsHeight := H;
      dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
    end;
    ChangeDisplaySettings(DevMode, 0);
  end;
end;

得到显示器分辨率GetSystemMetrics(SM_CXSCREEN);
GetSystemMetrics(SM_CYSCREEN);

把goomoo(古木) 朋友的代码改一点儿就行了
procedure SetScreenSize(W,H: Integer);
var
  DevMode: TDevMode;
begin
  if (w<640) or (h<480) then exit;
  if EnumDisplaySettings(nil,0,DevMode) then
  begin
    with DevMode do
    begin
      dmPelsWidth := W;
      dmPelsHeight := H;
      dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY;
      dmDisplayFrequency := 85;
    end;
    ChangeDisplaySettings(DevMode, 0);
  end;
end;

我的是这么写的：*******************************************************************************
*   过程名：SetScreen
*   过程说明：    修改屏幕的分辨率，使屏幕软件在运行时不会因为分辨率的问题而失真
*
*   参数说明：
*   OldWidth,OldHeight:   使过程返回系统原有的屏幕的分辨率(分别为宽与高)
*   NewWidth,NewHeight:   想要设置的屏幕的分辨率(分别为宽与高)
*******************************************************************************)Procedure  TForm1.SetScreen(NewWidth,NewHeight,NewFreq:Integer; Var OldWidth,OldHeight,OldFreq:Integer);{实现的代码}
Procedure  TForm1.SetScreen(NewWidth,NewHeight,NewFreq:Integer; Var OldWidth,OldHeight,OldFreq:Integer);
Var
  DevMode: TDeviceMode;
begin
  OldWidth:=  GetSystemMetrics(SM_CXSCREEN);
  OldHeight:= GetSystemMetrics(SM_CYSCREEN);  if (OldWidth <> NewWidth) and (OldHeight <> NewWidth) then
  begin
    DevMode.dmSize:=  sizeof(TDeviceMode);
    EnumDisplaySettings(nil, DWORD(-1), DevMode);
    DevMode.dmFields:=  DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY;
    DevMode.dmPelsWidth:= NewWidth;
    DevMode.dmPelsHeight:=  NewHeight;
    OldFreq:= DevMode.dmDisplayFrequency;
    DevMode.dmDisplayFrequency:=  NewFreq;
    ChangeDisplaySettings(DevMode,0);
  end;
end;调用：在FORM的CREATE事件中写：  SetScreen(1024,768,65,Screenx,Screeny,TheFreq);在FORM的DESTROY事件中写：
  SetScreen(Screenx,Screeny,TheFreq,Screenx,Screeny,TheFreq);

Drate(鸟窝里的虫)：
你的代码里原刷新率OldFreq如何得到呢？

OldWidth:=  GetSystemMetrics(SM_CXSCREEN);
  OldHeight:= GetSystemMetrics(SM_CYSCREEN);

  Oldfreq:=????

麻烦帮忙把？号补充一下啦，谢谢

调试易

请教设置分辨率的问题

解决方案 »