我原来编写的程序一直运行良好,包括WIN2000和98两个平台。
现在,在98下会出现窗体大小和控件在窗体上的位置完全打乱,而且不同的机器,表现也不一样。只有在每台98的机器下都重新编排控件位置,编译后才解决。
哪位高手知道是什么原因啊,感谢感谢。我急死了。
现在,在98下会出现窗体大小和控件在窗体上的位置完全打乱,而且不同的机器,表现也不一样。只有在每台98的机器下都重新编排控件位置,编译后才解决。
哪位高手知道是什么原因啊,感谢感谢。我急死了。
解决方案 »
- 关于fastreport中自定义变量的问题
- 如何实现如图功能,有无现成的组件??
- ★★★★★极度郁闷中...!散分,请CSDN的朋友们给个建议 ★★★★★
- 创建窗体是为什么会有错误?
- 交换机和hub总是过一段时间(几小时)掉了,品牌不一,总有数据发送经hub到交换机
- delphi6 和sql server 开发的数据库(单机)如何打包安装
- 我的SQL语句怎么了!!!!!
- 请大家帮一个迫切需要帮助的后生的忙!
- 我打开程序点机确定时提示
- 急!!!如何在程序运行中,根据一个table中字段的个数n,动态创建n个Qrlabel和n个qrtext.
- 如何在fastreport中打印变量
- oracle 怎么做简易客户端 使用ado来连接(问题解决,要多少分都可以)
const
ScreenWidth:LongInt=800;
ScreenHeight:LongInt=600;
{$ R*.DFM}
procedure TMainForm.FormCreate(Sender:TObject);
var
OldFormWidth:integer;
begin
Scaled:=TRUE;
if(Screen.width<> ScreenWidth)then
begin
OldFormWidth:=Width
Height:=longint(Height)*longint(Screen.Height)DIV S creenHeight;
Width:=longint(Width)*longint(Screen.Width)DIV Scre enWidth;
ScaleBy(Screen.Width,ScreenWidth);
Font.Size:=(Width DIV OldFormWidth)*FontSize;
end;
end;