窗口的适应问题(100分)

  • 主题发起人 主题发起人 fghxx
  • 开始时间 开始时间
F

fghxx

Unregistered / Unconfirmed
GUEST, unregistred user!
在WIN2000下做的窗体在WIN98下,部分窗体出现滚动条,但这些窗体与其他窗体没有什么两样?在WINXP下几乎所有的窗体都有滚动条,怎么解决?
 
那就在WIN98下开发软件吧,WINDOWS可以向下兼容的。
 
转载,试试
const
Orignwidth=800;
Orignheight=600;
Procedure TForm1.FormCreate(Sender:TObject);
begin
Scaled:=true;
if(screen.Width<>Orignwidth) then
begin
height:longint(herght)*longint(screen.height)div orignheight;
width:=longint(width)*longint(screen.width)div orignwidth;
scaleby(screen.width,orignwidth)
end;
end;
 
后退
顶部