表单在不同分辨率下的大小自适应问题,急,在线等(50分)

  • 主题发起人 poto5269
  • 开始时间
P

poto5269

Unregistered / Unconfirmed
GUEST, unregistred user!
软件在屏幕分辨率为1280*800的计算机上开发,但在其它个人计算机上使用时出现了大小不等,导致界面变型严重的大问题,严重影响了使用,其它计算机有的使用800*600,有的使用1024*768,如何让程序能自动适应使用都的分辨率,从而保证其正常使用呢?
急,在线等....
请各位大侠帮小弟一下
(如能解决问题可加分)
 
你就做成800*600吧,这样通用一点.

也可以将窗体全屏,这样也是一种解决方法.
 
其它就没有办法了吗?[:(]
 
const
ScreenWidth: LongInt = 1024;
ScreenHeight: LongInt = 768;

procedure TmodalC_win.FormCreate(Sender: TObject);
begin
//********
if(screen.Width<>ScreenWidth) then
begin
scaled:=true;
scaleby(screen.width,screenwidth);
height:=longint(height)*longint(screen.height)div screenHeight;
width:=longint(width)*longint(screen.width)div screenwidth;
Font.Size:=9 ;
end;
//*********
end;
 

Similar threads

回复
0
查看
667
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
顶部