GetTextExtentPoint32 类似于下面的 GetTextExtentExPoint 获得每个字符的宽度 GetTextMetrics 获得字体的详细信息 GetTextMetrics的详细用法: 因为TCanvas的TextHeight只能获得指定文本的高度,但 不包括行与行之间的间距以及其他信息,而GetTextMetrics不仅包含字体的高度和宽 度,还包括大量的字体的信息,诸如字体是否加粗、斜体甚至字符集名称。 比如,声明一个变量为 var Metrics:TTextMetric; 其中当前文本的高度就可由Metrics的tmheight域给出,然后附加 tmInternalleading的行间锯值就得出一行文本的真正高度。 LineHi:=Metrics.tmHeight+Metrics.tmInternalLeading; 这样输出的文本大小,行距皆可调节,灵活性极高。 function MulDiv(Number, Numerator, Denominator: Integer): Integer; 就是Restult := number*Numerator/Denominator procedure SetBounds(aLeft: Integer; aTop: Integer; aWidth: Integer; aHeight: Integer); procedure SetBounds(aLeft: Integer; aTop: Integer; aWidth: Integer; aHeight: Integer); 设置可见图形的左,上,宽,高值.