随笔 - 2146  文章 - 19 评论 - 11846 阅读 - 1267万


TText 也是从 TShape(TControl -> TShape)继承;

而与之类似的 TLabel 的继承序列是 TControl -> TStyledControl -> TTextControl -> TLabel.

TText 的主要成员:
{ 属性 }
Text          : string;     //文本内容
Font          : TFont;      //字体
Fill          : TBrush;     //文本画刷
HorzTextAlign : TTextAlign; //横向对齐
VertTextAlign : TTextAlign; //纵向对齐
AutoSize      : Boolean;    //改变控件大小以适合文本
Stretch       : Boolean;    //拉伸文本以适合控件
WordWrap      : Boolean;    //是否换行

{ 方法 }
Realign; //重新对齐


TFont(来自 FMX.Types) 的主要成员:
{ 属性 }
Family : TFontName;   //名称
Size   : Single;      //大小
Style  : TFontStyles; //样式


procedure TForm1.FormCreate(Sender: TObject);
begin
  Text1.Align := TAlignLayout.alClient;

  Text1.Text := ' Delphi XE2 ';

  Text1.Font.Family := '微软雅黑';
  Text1.Font.Size := 32;
  Text1.Font.Style := [TFontStyle.fsBold, TFontStyle.fsUnderline];

  Text1.Fill.Color := claRed;
  Text1.Stretch := True;
end;

posted on   万一  阅读(8752)  评论(1编辑  收藏  举报
编辑推荐:
· 开发者必知的日志记录最佳实践
· SQL Server 2025 AI相关能力初探
· Linux系列:如何用 C#调用 C方法造成内存泄露
· AI与.NET技术实操系列(二):开始使用ML.NET
· 记一次.NET内存居高不下排查解决与启示
阅读排行:
· 阿里最新开源QwQ-32B,效果媲美deepseek-r1满血版,部署成本又又又降低了!
· 开源Multi-agent AI智能体框架aevatar.ai,欢迎大家贡献代码
· Manus重磅发布:全球首款通用AI代理技术深度解析与实战指南
· 被坑几百块钱后,我竟然真的恢复了删除的微信聊天记录!
· 没有Manus邀请码?试试免邀请码的MGX或者开源的OpenManus吧


点击右上角即可分享
微信分享提示