文本长度:
Canvas.TextWidth('你的文字');
文本高度:
Canvas.TextHeight('你的文字');知道了长度和宽度,你知道该怎么算了吧
Canvas.TextWidth('你的文字');
文本高度:
Canvas.TextHeight('你的文字');知道了长度和宽度,你知道该怎么算了吧
解决方案 »
- 我想在程序中连接远程服务器,并且用select语句将数据复制到本地数据库的表中,请问如何做?请高手指点
- 急!cxgrid的简单问题,如何不使用cxgrid的导航条,自己实现导航功能,最后保存提交数据集
- 问个关于messagebox的问题??
- dbgrid中能不能控制单元格的大小
- SOS apro中如何将各种格式的文件转换为APF格式的文件?就只有10分了。
- 自动得到中文字符的五笔码
- 为何assigned(s)总为true
- 使用Delphi的TMediaPlayer控件定制能播放实况视频流的媒体播放器!
- 历史遗留问题 DBGrid中输入法的问题,求助!!!
- 菜菜题:关于DLL的生成、调用!
- 关于InstallShield的问题
- ado操纵fox数据库的问题。急!
Left = (Width - TextWidth) div 2;
Top = (Height - TextHeight) div 2;
procedure TForm1.Button1Click(Sender: TObject);
begin
PaintBox1.Canvas.TextOut(
(PaintBox1.ClientWidth - PaintBox1.Canvas.TextWidth(Edit1.Text)) div 2,
(PaintBox1.ClientHeight - PaintBox1.Canvas.TextHeight(Edit1.Text)) div 2,
Edit1.Text);
end;