关于多行Caption、Hint等

I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
总是发现有很多人需要Caption之类的能够换行,大多数人是采取写代码的方式,例如:Label1.Caption:='A'#13'B'#13'C'#13'D';这样也无可非议,是正确的,但始终是感觉不爽!因此我就写了下面的这个冬冬,安装之后,集成到Delphi开发环境中,以后就不用携带码来换行了,别看代码虽小,可是使用起来可是方便不少啊!
使用方法,把下面的两个文件分别以他们的文件名保存,然后打开StrEditDlg.pas,在Delphi IDE中,选择Component-->Install Component,然后点击OK,Build即可。如果不需要使用了,请到你把该文件安装到的DPK文件中,删除StrEditDlg.pas并重新编译那个DPK文件即可,不会留下任何垃圾和痕迹。:)
回复人: zswang(伴水)(努力工作中) ( ) 信誉:126 2002-8-1 9:27:42 得分:200
 
 
一般我是通过修改窗体代码来实现
object Label1: TLabel
Left = 120
Top = 136
Width = 26
Height = 65
Caption = 'Line1'#13#10'Line2'#13#10'Line3'#13#10'Line4'#13#10
end
 
嘻嘻嘻 有总比没有好! 嘻嘻嘻嘻
 
 
///适用于Delphi5和Delphi6。
把附件中的文件导出,然后保存,打开streditor.pas,然后Install Component即可。安装之后,凡是有Caption和Text的地方,会弹出一个对话框,这样可以输入换行的Caption!很爽的,不需要用代码来显示换行的Caption了。
 
附件&gt;&gt;&gt;&gt;&gt; <a href="StrEditor.rar" target="_blank">StrEidtor.rar</a>
 

Similar threads

顶部