令人头疼的问题？请各位大侠帮帮忙啊！（在线等待）

Question

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任务条却全部挤在屏幕的左上角，请部各位大侠如何解决？

Answer 1

你在procedure Tform1.formauto(x,y:word)中添加切换分辨率后刷新屏幕的指令
看看能不能改过来。
我想出现这个问题的原理就跟在640*480下运行游戏退出到800*600后壁纸还所在左
上角一回事，你说呢？