怎么在delphi的label、edit、DBtext、DBedit、RDBtext、Rdbedit等显示文字的地方显示自适应大小（宽度）的字体，象word的字

S

scLizongliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #1

怎么在delphi的label、edit、DBtext、DBedit、RDBtext、Rdbedit等显示文字的地方显示自适应大小（宽度）的字体，象word的字符宽度多少个字符一样，最好是VCL控件。(50分)<br />label、edit、DBtext、DBedit、RDBtext、Rdbedit等显示文字的地方显示自适应大小（宽度）的字体，象word的字符宽度多少个字符一样，最好是VCL控件。
我使作逻辑字体做的在字数很多时就不均匀呀！原因是字体宽度是整形的。

 

小

小隐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #2

自己动手改写吧。在Control改变大小后计算出它一行能显示的字符个数，
在Paint时计算要显示的字符其位置，TextOut就好了。

 

S

scLizongliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #3

楼上兄台，用不着多行显示，一行就行，即不论edit等多少字，都 均匀 地按edit的高度和
宽度显满呀！

 

S

scLizongliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #4

原因是逻辑字体宽度是整形的，用edit的宽度除以字数有余数，因此不能刚好把edit显满.

 

S

scLizongliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #5

接受答案了.