dephi制作的程序在不同分辨率下运行(急用）

[wybxuan]

在1024*768制作了一个delphi数据库程序，如何让它在800*600下运行而且运行效果不变，如显示界面基本正常。Thank u very much!!!

[fire_cloudy]

你在1024*768的分辨率下设计的form,第一步：
inplementation
const
ScreenWidth: LongInt = 1024; {I designed my form in 1024x768 mode.}
ScreenHeight: LongInt = 768;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
scaled := true;
if (screen.width <> ScreenWidth) then
begin
height := longint(height) * longint(screen.height) div ScreenHeight;
width := longint(width) * longint(screen.width) div ScreenWidth;
scaleBy(screen.width, ScreenWidth);
end;
end;

下一步，要让每个子控制的字体改变到合适的大小：
type
TFooClass = class(TControl); { needed to get at protected }
{ font property }

var
i: integer;
begin
for i := ControlCount - 1 downto 0 do
TFooClass(Controls[i]).Font.Size :=
(NewFormWidth div OldFormWidth) *
TFooClass(Controls[i]).Font.Size;
end;

[mysine]

没有你所说的那么麻烦！！
你可以将Form设置为运行时最大化！！
还有字体等设置为宋体9-10号字，类型是GB_CHINESE32的。
在窗体上放置Panel容器，将其设置为Client.并将其它部件放于其上。
其它控件可根据实际需求进行设定。

[dana]

在窗口上放panel让其最大化，就可以，这样才能适用于不同的分辩率

[wybxuan]

to fire_cloudy :
I am very sorry! 分已经给错了！下回补偿你30分！Please forgive me!