社区
Delphi
帖子详情
如何调整TLABEL的行距?
realside
2007-03-21 11:13:07
1.如何调整这个label的行距?
2.如果LABEL确实无法调整行距,那哪个元件可以能调整行距又可以让背景透明(或设置图片)?
...全文
312
4
打赏
收藏
如何调整TLABEL的行距?
1.如何调整这个label的行距? 2.如果LABEL确实无法调整行距,那哪个元件可以能调整行距又可以让背景透明(或设置图片)?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
橘子香水
2007-03-22
打赏
举报
回复
有很多第三方控件可以实现的.
lihuasoft
2007-03-21
打赏
举报
回复
TextOut
realside
2007-03-21
打赏
举报
回复
1.算了,难找.费时,急用
2.这样工作量就很大了,因为要显示的是个长字串.不妥.
dooing
2007-03-21
打赏
举报
回复
1.找第三方控件,肯定可以找到不少透明的东东;
2.有个变通的办法:不同的行用不同的Lable,有几行就加几个Lable上去,这样距离就随便你自己控制了。
显示边框的T
Label
类
显示边框的T
Label
类,从
Label
继承而来的
追击问题作战模拟
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Math, TeEngine, Series, ExtCtrls, TeeProcs, Chart; type Tcatchform = class(TForm) lbl1: T
Label
; lbl2: T
Label
; lbl3: T
Label
; lbl4: T
Label
; lbl5: T
Label
; lbl6: T
Label
; lbl7: T
Label
; lbl8: T
Label
; lbl9: T
Label
; lbl10: T
Label
; lbl11: T
Label
; lbl12: T
Label
; btn1: TButton; edt1: TEdit; edt2: TEdit; edt3: TEdit; edt4: TEdit; edt5: TEdit; edt6: TEdit; edt7: TEdit; edt8: TEdit; edt9: TEdit; edt10: TEdit; edt11: TEdit; cht1: TChart; lnsrsSeries1: TLineSeries; lbl13: T
Label
; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var catchform: Tcatchform; implementation {$R *.dfm} procedure Tcatchform.btn1Click(Sender: TObject); var LX,LY,HX,HY,LV,HVY,HV,C,X,Y:real; T1,T2,T:real; //T1是越野时间,T2是路上时间 LX1,LY1,a,b,BC,min:real; k:integer; begin HX:=strtofloat(edt1.Text); LX:=strtofloat(edt2.Text); HY:=strtofloat(edt3.Text); LY:=strtofloat(edt4.Text); C:=strtofloat(edt5.Text); HVY:=strtofloat(edt6.Text); HV:=strtofloat(edt7.Text); LV:=strtofloat(edt8.Text); BC:=0; a:=LX; b:=LY; min:=5000; repeat BC:=BC+0.001;//取步长 for k:=1 to 500 do begin a:=LX+k*BC; b:=LY+k*tan(C*pi/180)*BC; //上路点假想 T1:=sqrt(sqr(b-HY)+sqr(a-HX))/HVY; LX1:=LX+LV*cos(C*pi/180)*T1; LY1:=LY+LV*sin(C*pi/180)*T1; if LX1
T then begin min:=T; X:=a; Y:=b; cht1.Series[0].AddXY(X,min,'',clred); end; end; until BC>4; edt9.Text:=floattostr(X); edt10.Text:=floattostr(Y); edt11.Text:=floattostr(min); end; end.
unit00001.pas
unit type TForm1 = class(TForm) Edit1: TEdit;
Label
1: T
Label
;
Label
2: T
Label
; Edit2: TEdit; Winsock1: TWinsock; ListBox1: TListBox; GroupBox1: TGroupBox;
Label
3: T
Label
; SpinEdit2: TSpinEdit; Button6: TButton; Button5: TButton; Button7: TButton; Button8: TButton; GroupBox2: TGroupBox; Button1: TButton; Button3: TButton; Button2: TButton; Button4: TButton; SpinEdit1: TSpinEdit; GroupBox3: TGroupBox;
Delphi XE开发HTTPSERVER服务+源码+测试可用
//功能描述:线上订货系统订单提交时检查ERP系统库存 //项目背景:因线上订货系统不支持PTO模式(商品有BOM),ERP系统支持,订单提交时需要检查ERP系统中子件库存是否够 //关键字:Delphi XE8、HTTPSERVER、application/json //服务程序运行了几个月,基本正常,偶尔会出现异步操作异常(因所有连接都是共享同一个ado连接的原因) //以下部分关键代码供参考; TMainForm = class(TForm) IdHTTPServer: TIdHTTPServer; StartServerBtn: TSpeedButton; StopServerBtn: TSpeedButton;
Label
1: T
Label
; IPED: TEdit;
Label
2: T
Label
; PortED: TEdit; Timer1: TTimer; Hint
Label
: T
Label
;
SQL2000通用日志压缩工具
SQL2000通用日志压缩工具 含源码 type TFrm_main = class(TForm) Panel1: TPanel; btn_config: TBitBtn; grp_db: TGroupBox; cbb_database: TComboBox; Memo1: TMemo; btn_do: TBitBtn; btn_close: TBitBtn; Button1: TButton;
Label
3: T
Label
; GroupBox1: TGroupBox; GroupBox2: TGroupBox;
Label
1: T
Label
;
Label
2: T
Label
; procedure btn_closeClick(Sender: TObject); procedure btn_configClick(Sender: TObject); procedure edt_NewSizeKeyPress(Sender: TObject; var Key: Char); procedure btn_doClick(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
Delphi
5,392
社区成员
262,732
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章