Delphi

Question

对 Firemonkey 还是很陌生。有一个组件我要添加到一个从 TRectangle 派生的表单中。绘制出来后，我想在其中添加文本，但我真的很难找到任何记录如何执行此操作的地方。任何人都可以提出任何建议或指出我正确的方向吗？

谢谢

Answer 1

基于 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;

Delphi - Firemonkey 将文本写入 TRectangle

Delphi - Firemonkey Write Out Text to TRectangle

firemonkey

delphi-10-seattle