首页  编辑  

关于多行Caption、Hint等

Tags: /超级猛料/VCL/Control.控件使用开发和第三方控件/属性编辑器/   Date Created:

总是发现有很多人需要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了。

StrEditor.dfm (1.6KB)
StrEditor.pas (2.0KB)