ActiveForm在17和15显示器上的显示效果不一样。如在15显示器上ActiveForm能充满IE,则在17显示器上ActiveForm不能充满IE。
在网页中用 width=736
height=440达不到效果,只是ActiveForm边缘扩大而已。高手请指点一二。谢谢!
在网页中用 width=736
height=440达不到效果,只是ActiveForm边缘扩大而已。高手请指点一二。谢谢!
解决方案 »
- DELPHI7 RZTREEVIEW如何获得鼠标指向IMAGELIST时的消息?
- 如何判断ClientDataSet新输入的数据是否与原ClientDataSet中数据的某一列的数据有重复?
- 急,! delphi ! 救在dbgrid 中画出甘特图! up有分
- 怎样将客户机的txt文件或EXCEL文件导入到远程服务器的Sql server中的数据表中啊?
- 如何在delphi里自定义一个结构?
- mdi子窗体的位置的问题
- 提问: 关于数据库连接的问题,100分!不够再给,来者有分!
- 如何实现将位图存储到一个文件里?
- 为什么我动态的将数据加入InfoPower2000 的TwwDBComboBox 中并且将其属性中的MapList设置为True 可是使用GetComboValue获得的值为空?
- ODAC连接Oracle数据库出错
- 请问谁有delphi的中文帮助?
- 如何实现用包插件功能?
???
with=100%
heigh=100%>
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; if screen.width=1024 then
begin
for k := ControlCount - 1 downto 0 do
begin
TFooClass(Controls[i]).Font.Charset:=GB2312_CHARSET;//GB2312_CHARSET;
TFooClass(Controls[i]).Font.Name:='宋体';
TFooClass(Controls[i]).Font.Size:=11;
TFooClass(Controls[i]).Font.Size :=(screen.width div ScreenWidth) *
TFooClass(Controls[i]).Font.Size; end;
end;好用,还需提高。