大家对于机器分辨率的问题是怎样处理的？up有分

[dongxsoft]

比如在处理一些多控件窗口时，会影响到控件的位置甚至看不到。

[ollea]

有两中方法可供您选择。
一是在程序中修改设备的分辨率。使之与你在程序设计时的分辨率一样。是用两个windows api函数（忘记了，是好象是setwindow之类的。您查查msdn）
二是修改你程序中的显示方式。这包括窗体在最大化时候控件的等比例的显示但这样做有个缺点是:控件的顶点坐标是固定不动的。要想正常显示还要你自己编程实现

[ollea]

给您个参考吧
procedure TForm1.FormCreate(Sender: TObject);
var
FWidth:integer;
DevMode:TDeviceMode;
begin
if(Screen.width<> 800)then
begin
　　Result:=EnumDisplaySettings(nil,0,DevMode); //取得旧的显示参数
　　if Result then
　　begin
　　DevMode.dmFields:=DM_PELSWIDTH Or DM_PELSHEIGHT;
　 DevMode.dmPelsWidth:=800;
　　DevMode.dmPelsHeight:=600;
ChangeDisplaySettings(DevMode,0); //设置新的显示参数
end;
end;
end;

[demon_angel]

对于你提出的问题，我分为两个回答：
1.
关于分辨率：我赞同ollea的方法，在程序中修改设备的分辨率。使之与你在程序设计时的分辨率一样。有两个API函数，可以动态调整显示器的分辨率，EnumDisplaySettings() 和ChangeDisplaySettings()。

2.
如果控件太多，甚至在设计时就无法在同一个窗体上显示的话，建议你是否重新整理一下处理逻辑，把它们划分到不同窗体，如果一定要在一个窗体的话，你可以使用PageControl或TabbedNoteBook。
Good Luck!!!

★★ 魔法师 ●

[ciacia]

up~~~~~~~~~~

[madyak]

帮你UP

[xhc_2000]

gz

请问一下ollea(ollea) ,
如果设置的分辨率别人的机器支持不了,是不是就直接黑屏了?

[chenfeng3000]

我也帮你UP一下!

[BlueTrees]

除非你的程序是全屏，否则最好不要改，用户会很难受的。

[cgh1970]

up

[cmsystem]

up

[dreamtou]

都有理，我的方法太笨了

[shenjhshen]

hehe

[zhhahuatian]

const
ScreenWidth: Longint=800;
ScreenHeight: LongInt=600;
procedure TForm.FormCreate;
begin
scaled:=true;
if(screen.width<>Screenwidth) then
height:=longint(height)*longint(screen.height) div screenheight;
width:=longint(width)*longint(screen.width) div screenwidth;
scaleby(screen.width,screenwidth);
end;

[zhhahuatian]

上面程序假设分辩率为800*600
你可跟据情况设定,我用过可以的

[ehom]

不会在OnResize事件中多写点代码吗?

[reallike]

嗬嗬，我是用的现成的控件包。

为什么不用呢？下载了一个支持DirectX的控件包。

里面就有一个修改分辨率的。

http://www.2ccc.com/softv/vcl_delphix.rar

还有源代码，谢谢delphi盒子吧。

是delphi的程序员就要分享好东西。

[LMale]

up一下，来拿分的

[byc6352]

api可以

[q4588818]

UP.
如果一运行你的程序分辨率就被改了，会很郁闷的吧？

[dongxsoft]

谢谢各位，以上的几种我也试过一些，但是始终没有找到一个完美的办法，我大体总结了几点：
1、尽量使用象dbgrid等可以alClient的控件，减少一些难以改变大小的控件（如Edit,button需要调整它们位置、大小和字体）；
2、如果必须用edit等控件时，尽量安排较集中，可以固定窗口大小，即borderstyle:= bsSingle;适当采用一些akLeft和akRight;
3、我个人觉得采用修改用户显示器分辨率的方式不是很可行，除非你做的是一个很行业的很重要性的客户又没有什么意见的系统；