procedure Tform1.formauto(x,y:word);
var
devmode:tDevicemode;
begin
if EnumDisplaySettings(nil,0,devmode) then
begin
devmode.dmfields:=dm_pelswidth OR dm_pelsheight ;
devmode.dmpelswidth:=x;
devmode.dmpelsheight:=y;
ChangeDisplaySettings(devmode,0);
end;
end;formauto(800,600);
请教:为什么执行完该过程以后,虽然分辩率(原为640*480)是调整过来了,但是表单与windows任务条却全部挤在屏幕的左上角,请部各位大侠如何解决?
var
devmode:tDevicemode;
begin
if EnumDisplaySettings(nil,0,devmode) then
begin
devmode.dmfields:=dm_pelswidth OR dm_pelsheight ;
devmode.dmpelswidth:=x;
devmode.dmpelsheight:=y;
ChangeDisplaySettings(devmode,0);
end;
end;formauto(800,600);
请教:为什么执行完该过程以后,虽然分辩率(原为640*480)是调整过来了,但是表单与windows任务条却全部挤在屏幕的左上角,请部各位大侠如何解决?
看看能不能改过来。
我想出现这个问题的原理就跟在640*480下运行游戏退出到800*600后壁纸还所在左
上角一回事,你说呢?