请教各位大大：
为了让软体能在标准屏与宽屏间都能用，所以我想知道字体的长度与宽度，以便于转换，但是，如何才能得到字体的长度与宽度呢？



我现在用的是类似 label4.Font.Size:=trunc((sx*label4.Font.Size)/800); 但是感觉效果不是很理想,其中的sx指的是检测出来的screen.width，800指的是在标准屏设计时的screen.width

編輯記錄

參照使用 ScaleBy, Screen.Width, Screen,Height

感谢max5020大大的关注，小弟初学，能否说得再详细写？因为我是要在宽屏幕也能用


===================引 用 max5020 文 章===================
參照使用 ScaleBy, Screen.Width, Screen,Height

假設, 你的開發環境是 1024x768

在FORM.CREATE事件,
加入ScaleBy( TRUNC(768/Screen.Height*100), TRUNC(1024/Screen.Width)*100));

不知为何,试不出来
max5020大大在标准屏与宽屏幕之间试过吗?



===================引 用 max5020 文 章===================
假設, 你的開發環境是 1024x768

在FORM.CREATE事件,
加入ScaleBy( TRUNC(768/Screen.Height*100), TRUNC(1024/Screen.Width)*100));

举个例子,下面是我的code:

procedure TForm1.FormShow(Sender: TObject);
begin
speedbutton1.Font.Height:=11;
speedbutton1.Font.width:=22;
end;

为何每次运行都会出现 undeclared identfier:'width' 错误?

奇怪的是,只要把第二行speedbutton1.Font.width:=22;去掉,就可以通过了,但这样一来,不是就只有height没有width了吗?

編輯記錄

似乎是字体都是正方形,所以宽和高是一样的,我现在用的方法如下(假设以前的环境是800*600):

speedbutton1.Font.Height:=trunc(screen.height*(speedbutton1.Font.height/600));

編輯記錄