盒子论坛 v2.1

假设你在800*600的分辨率下设计的form,第一步：
inplementation
const
  ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
  ScreenHeight: LongInt = 600;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  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;
end;

下一步，要让每个子控制的字体改变到合适的大小：
type
  TFooClass = class(TControl); { needed to get at protected }
                               { font property }

var
  i: integer;
begin
  for i := ControlCount - 1 downto 0 do
    TFooClass(Controls[i]).Font.Size :=
        (NewFormWidth div OldFormWidth) *
        TFooClass(Controls[i]).Font.Size;
end;
----------------------------------------------
-

作者：

hlc_alf ( )	★☆☆☆☆	-
	普通会员

2003/5/29 14:58:10

2楼：

请问猪猪，你的下面的那一段“下一步”是做什么的？
----------------------------------------------
-

作者：

ln_81 (delphior)	★☆☆☆☆	-
	普通会员

2003/5/29 20:37:38

3楼：

不是很明白吗？要让每个子控制的字体改变到合适的大小
----------------------------------------------
-

作者：

hlc_alf ( )	★☆☆☆☆	-
	普通会员

2003/5/30 9:35:06

4楼：

代码加在那里呀，所谓的子控制又是指什么呀？
----------------------------------------------
-

作者：

hlc_alf ( )	★☆☆☆☆	-
	普通会员

2003/6/2 9:26:10

5楼：

那如果我的子窗体上全部用的是Panel呢，我发现子窗体倒是可以按屏幕分辨率正确显示，但是Panel变小了，缩到左上角了，右边的为窗体空白，请问如何解决呢？
----------------------------------------------
-

作者：

fidido (swGuitar)	★☆☆☆☆	-
	盒子活跃会员

2003/6/3 10:20:07

6楼：

猪猪　讲解一下吧　下一步后面看不懂呀~~~~

----------------------------------------------
我我,我是一只菜鸟,菜菜菜菜菜菜,菜菜菜菜菜菜菜菜菜菜菜菜~~~~~~~~~

作者：

fidido (swGuitar)	★☆☆☆☆	-
	盒子活跃会员

2003/6/3 10:24:41

7楼：

最后的　begin...end;要写在哪个一路事件中呀？？？？

----------------------------------------------
我我,我是一只菜鸟,菜菜菜菜菜菜,菜菜菜菜菜菜菜菜菜菜菜菜~~~~~~~~~

作者：

xwhope (烟火)	★☆☆☆☆	-
	盒子活跃会员

2003/9/30 21:34:10

8楼：

123 (猪猪)的回答是“Delphi之未经证实的葵花宝典version 2.1”中的原文，不过我也不知道下面的代码应该放在哪儿。

----------------------------------------------
-

信息

登陆以后才能回复