高手请教

Question

怎么样才能使我做出来的程序在不同分辨率下显示都能正常呀！还有我
做出来的程序在98上能按装与使用。为什么到2000上就不能使用了。求求各位高
手出个主意。

Answer 1

PDS是什么，怎么用呀？相关的资料到哪里去找呀

Answer 2

我不是高手,不过菜也有菜的办法.我通常都是先用screen.width得到当前屏幕大小然后再写代码做相关处理.在窗体上多加一些panel也能解决不少问题.

Answer 3

Const
Orignwidth=800;
Orignheight=600;procedureTForm1.FormCreate(Sender:Tobject);
begin
scaled:=true;
if(screen.width<>orignwidth)then
begin
height:=longint(height)*longint
(screen.height)divorignheight;
width:=longint(width)*longint
(screen.width)divorignwidth;
scaleby(screen.width,orignwidth);
end;
end;

Answer 4

设置form的scaled属性为true。然后，因为delphi能够自动获得系统的分辨率并存在screen.pixelsPerInch中。你可以通过这个值来让窗体自动获得当前分辨率并调整，试试看吧。