怎样求字符的长度值？(50分)

Z

zju571

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-07

• #1

怎样知道字符的长度/宽度？不是指Length(string)求得值，要计算=多少mm或多少像素？
与字体font，和分辨率有关系。

 

B

babibean

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-07

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
TxtSize: TTextMetric;
begin
GetTextMetrics(Label1.Canvas.Handle, TxtSize);//
ShowMessage('高: ' + inttoStr(TxtSize.tmHeight) + '宽: ' + inttoStr(TxtSize.tmWeight));
end;

 

F

fengyhf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-07

• #3

str1 : String;
str1 := '内容';
form.Canvas.TextWidth(str1)
form.cavas.TextHeight(str1)

 

Z

zju571

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-17

• #4

多人接受答案了。