请问如何让自己做的程序能够自动适应不同分辨率的屏幕呢？ 请帮忙看看，在此谢谢了

Question

请问如何让自己做的程序能够自动适应不同分辨率的屏幕呢？ 最好给段代码，谢谢

Answer 1

andyzhou1101(〆.赱 極端(http://lovelcy.blogcn.com)) ( ) 信誉：100    Blog  2006-09-13 09:06:00  得分: 0  
 
 
   为什么要让程序适应屏幕的分辨率
让屏幕的分辨率适应你的程序好了
:)
----------------------------------------------------
那这个用代码怎么实现呢，我刚从cb转到delphi 不知道该怎么写。谢谢了  
 

Answer 2

andyzhou1101(〆.赱 極端(http://lovelcy.blogcn.com)) 
让屏幕的分辨率适应你的程序好了
意思是不是不管是在什么分辨率下都让它显示一种？

Answer 3

给段代码，参考一下------------
------------function Resolution(X,Y:word):boolean;
var
  DevMode:TDeviceMode;
  begin
    Result:=EnumDisplaySettings(nil,0,DevMode);
    if Result then
    begin
      DevMode.dmFields:=DM_PELSWIDTH Or DM_PELSHEIGHT;
      DevMode.dmPelsWidth:=X;
      DevMode.dmPelsHeight:=Y;
      Result:=ChangeDisplaySettings(DevMode,0)=DISP_CHANGE_SUCCESSFUL;
    end;
  end;procedure TForm1.Button1Click(Sender: TObject);
begin
  if Resolution(800,600) then ShowMessage('800×600模式!');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  if Resolution(1280,1024) then ShowMessage('1280X1024模式!');
end;