盒子论坛 v2.1

各位：在delphi6.0 中怎样调整分辨率问题
我在1024*768 的分辨率下做的界面，把它考到到800*600的电脑里运行时。
截面‘天那么大啊’
请问各位怎样使它能随分辨率的大小自动变化呢！！！

----------------------------------------------
不是高手，但要努力成为高手！

作者：

groon (like)	★☆☆☆☆	-
	盒子活跃会员

2004/7/5 15:02:35

1楼：

Function ChangeDisplay(Const Width,Height:Word):Boolean;
Var
  DeviceMode:TDeviceMode;
begin
  Result:=False;
  Try
    if EnumDisplaySettings(Nil,0,DeviceMode) then
    begin
      DeviceMode.dmFields:=dm_PelsWidth or dm_PelsHeight;
      DeviceMode.dmPelsWidth:=Width;
      DeviceMode.dmPelsHeight:=Height;
      Result:=ChangeDisplaySettings(DeviceMode,CDS_UPDATEREGISTRY)=DISP_CHANGE_SUCCESSFUL;
    end;
  Except
    Raise;
  End;
end;
...
...
if (Screen.Width<>1024) or (Screen.Height<>768) then
  ChangeDisplay(1024,768);
----------------------------------------------
-

信息

登陆以后才能回复