如何得到EDIT字体的宽度？(20分)

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-22

• #21

Edit 不是有自己的 Font 吗? 先给 Form1.canvas 赋一个值就行了,

 

L

liuminghao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-22

• #22

该结束讨论了

 

S

Shenxinaz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-23

• #23

这个方法可以考虑字体的影响：使用 GetTextExtentPoint

Phdc := Canvas.Handle;
SelectObject(Phdc, Label3.Font.Handle);
beginpath(PHdc);
TextOut(Phdc, 35, 45, '12345678', strlen(dd));
Endpath(PHdc);
GetTextExtentPoint(Phdc, dd, strlen(dd), sz);

对于斜体字的大字体可能还要预留一点空间

 

陈

陈君凯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-23

• #24

var
i:integer;
.
i:=Form1.Edit1.Font.hight;

 

A

amo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-05

• #25

多人接受答案了。