📄 dpi42.htm
字号:
<html>
<head>
<title>Delphi的竖排标签</title>
<meta content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
</tr>
</tbody>
</table>
<table border=0 bordercolordark=#66aaff bordercolorlight=#66aaff cellpadding=0
cellspacing=0 width=680 align="center" height="128">
<tbody>
<tr>
<td bgcolor=#ffffff height=15>
<div align=center class=H1> <b><big>Delphi的竖排标签</big>
</b></font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=745>
<p align="center"> </p>
<p align="left"> 大家知道用Deiphi开发应用程序时标签是必不可少的，但是Deiphi提供的Label构件只支持横排方式的标签，而不支持竖排方式标签。怎么办？<br>
编写一段简单的函数就可以把标签从横排变成竖排。因为中文字符集是用两个字节表示一个字符的，所以应在字符串的每两个字节之间加入回车换行符。这个函数的参数是一字符串，返回值是在中文字符之间添加了回车换行符的一个新的字符串。<br>
下面就举例说明：我们以竖排方式显示一首诗。<br>
新建一工程。<br>
首先在implementation部分定义一个字符串数组常量poemary ，该数组的每一个成员顺序存放了诗中的一句。<br>
const<br>
poemary: array[0..6] of string = (' 游子吟', '慈母手中线', '游子身上衣', '临行密密缝',<br>
'意恐迟迟归', '谁言寸草心','报得三春晖');<br>
随后，在implementation部分加入字符串转换函数，代码如下：<br>
function convertstring(source:string):string;<br>
var<br>
i,j:integer;<br>
a,b:array[0..50] of char;<br>
begin<br>
StrPCopy(a, source) ;<br>
j:=0; i:=0;<br>
while (a[j] <> ＃0) do begin<br>
b[i]:=a[j];<br>
if (j mod 2=1)and(j>0) then begin<br>
Inc(i); b[i]:=＃13;<br>
end;<br>
Inc(j); Inc(i);<br>
end;<br>
b[i－1]:=＃0;<br>
result:= strpas(b);<br>
end;<br>
最后添加Form1的OnCreate事件。注意：要在uses子句中添加单元名称stdctrls。<br>
procedure TForm1.FormCreate(Sender: TObject);<br>
var<br>
labary:array[0..6] of Tlabel;<br>
i:integer;<br>
begin<br>
for i:=0 to 6 do<br>
begin<br>
labary[i]:=Tlabel.Create(self);<br>
labary[i].parent:=self;<br>
labary[i].caption:=convertstring(poemary[i]);<br>
labary[i].top:=(form1.Height－labary[i].height) div 2;<br>
labary[i].left:=10＋i＊33;<br>
end;<br>
end;<br>
运行结果如图所示，此程序在Windows 95，Delphi3.0环境中运行通过。<br>
(赖立谦) <font
color=#ffa000><b> <br>
</td>
</tr>
</tbody>
</table>
</div>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -