3 3868474 Unregistered / Unconfirmed GUEST, unregistred user! 2006-05-26 #3 文字下面。label, text, 可以显示文字的地方。可以根据不同的风格、线宽等显示。
超 超级牛X Unregistered / Unconfirmed GUEST, unregistred user! 2006-05-26 #4 Font.Style:=[fsStrikeOut];<br>// TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut);<br>// 分别是加粗，斜体，下划线，删除线
Font.Style:=[fsStrikeOut];<br>// TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut);<br>// 分别是加粗，斜体，下划线，删除线
3 3868474 Unregistered / Unconfirmed GUEST, unregistred user! 2006-05-26 #7 这个可能是一种解决办法吧。不过似乎难度不小，能否举个例子？
J jangill Unregistered / Unconfirmed GUEST, unregistred user! 2006-05-26 #9 delphi窑洞里有很多控件啊.<br>或者搜索"双删除线 波浪线 控件"看看
3 3868474 Unregistered / Unconfirmed GUEST, unregistred user! 2006-05-26 #11 ：duhai_lee, 如何修改，举个例子好吗？<br>jangill，我去搜一下
J Jackmaomao Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-06 #13 在TLabel下<br>procedure Paint; override;<br>begin<br>手动重法画,计算 每行文字 的Top + 字高/2 - n,再画双线<br>end;
3 3868474 Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-06 #14 Jackmaomao:<br> 差不多是这样吧。<br> 不过象richEdit中，一行中字有大有小，数据是如何保存的？而当鼠标点击时如何确定文字位置？
