在工程文件中 DevMode:TDeviceMode; begin try if(Screen.width<> 1024 )then begin if EnumDisplaySettings(nil,0,DevMode) then begin DevMode.dmFields:=DM_PELSWIDTH Or DM_PELSHEIGHT; DevMode.dmPelsWidth:=1024; DevMode.dmPelsHeight:=768; ChangeDisplaySettings(DevMode,0); //设置新的显示参数 end; end ; except end ;
http://expert.csdn.net/Expert/topic/1893/1893375.xml?temp=.6549951
"我在1024*768下设计的,但在WIN98的800*600下运行"
DevMode:TDeviceMode;
begin
try
if(Screen.width<> 1024 )then
begin
if EnumDisplaySettings(nil,0,DevMode) then
begin
DevMode.dmFields:=DM_PELSWIDTH Or DM_PELSHEIGHT;
DevMode.dmPelsWidth:=1024;
DevMode.dmPelsHeight:=768;
ChangeDisplaySettings(DevMode,0); //设置新的显示参数
end;
end ;
except
end ;