const
ScreenWidth:LongInt=800;
ScreenHeight:LongInt=600;
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;
ScreenWidth:LongInt=800;
ScreenHeight:LongInt=600;
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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货