ActiveForm在不同显示器上的显示问题？

[wongang]

ActiveForm在17和15显示器上的显示效果不一样。如在15显示器上ActiveForm能充满IE,则在17显示器上ActiveForm不能充满IE。
在网页中用 width=736
height=440

达不到效果，只是ActiveForm边缘扩大而已。

高手请指点一二。谢谢！

[wongang]

高手们，路过说几句吧

[chenqp]

将activeform的主窗体的 Anchors属性的akTop,akLeft,akRight,akBottom都设为true,搞定

[lining_1977]

<object ......
with=100%
heigh=100%>

[hyj122]

可以不可以做一个功能，，自动，，变更WIDTH ，AND ，WHIGHT，，


？？？

[wongang]

答案：

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;

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;

好用，还需提高。