Question

使用Rad Studio 10.3

我正在基于FireDAC查询在运行时创建TExpander。但是我遇到了将标签的父级设置为我刚刚创建的扩展器的问题。

我正在使用以下内容创建组件

procedure TfrmMain.FormCreate(Sender: TObject);
var
  i: integer;
begin
  // Populate previous saved conversions stringgrid
  FDQuery1.SQL.Clear;
  FDQuery1.Close;
  FDQuery1.SQL.Add('SELECT convert from conversions');
  FDQuery1.Open;
  i := 1;
  while not FDQuery1.Eof do
  begin
    // Create Expanders here to display database query to user
    exp := TExpander.Create(Self);
    exp.Parent := layoutDBDisplay;
    exp.Align := TAlignLayout.Top;
    exp.Name := 'dbExp' + i.ToString;  
    exp.Height := 100;
    exp.TextSettings.Font.Size := 14;
    exp.TextSettings.Font.Style := [TFontStyle.fsBold];

    // Create TLabel inside of above expander
    lab := TLabel.Create(Self);
    lab.Parent := TExpander;
    lab.Align := TAlignLayout.Top;
    lab.Name := 'dbResLabel' + i.ToString;
    inc(i);
    FDQuery1.Next;
  end;
  FDQuery1.Close;

end;

问题出在这一行

lab.Parent := expName;

显然，由于以下原因，以上内容无法编译

[dcc32 Error] frmConverter.pas(266): E2010 Incompatible types: 'TFmxObject' and 'class of TExpander'

对此有简单的解决方法吗？

Answer 1

您的行

lab.Parent := TExpander;

应该是

lab.Parent := Exp;

Delphi Firemonkey在运行时创建TExpander和TLabel

1 个答案: