Delphi - Firemonkey将文本写入TRectangle

时间:2018-04-16 10:50:12

标签: delphi firemonkey delphi-10-seattle

对Firemonkey来说还是一个新手。有一个组件我正在添加到一个从TRectangle下降的表单。一旦我把它画出来,我想在其中添加文字,但我真的很难找到哪些文档如何做到这一点。任何人都可以提出任何建议或指出我正确的方向吗?

由于

1 个答案:

答案 0 :(得分:2)

为了构建DSM的注释,这是一个如何在代码中将TLabel添加到TRectangle(或TRectangle后代)的示例:

var
  MyLabel: TLabel;
begin
  // Create a TLabel and add it to an existing TRectangle
  MyLabel := TLabel.Create(MyRectangle);

  // Set the Parent to MyRectangle
  MyLabel.Parent := MyRectangle;

  // Align the TLabel in the center of the TRectangle
  MyLabel.Align := TAlignLayout.Center;

  // Center align the text in the TLabel
  MyLabel.TextAlign := TTextAlign.Center;

  // Set the text for the label
  MyLabel.Text := 'Test Label';
end;