delphi - 如何在delphi中动态创建TLabel或TEdit等组件

Question

使用Delphi 2010

SQLQuery1.First; // move to the first record
while(not SQLQuery1.EOF)do begin
   // do something with the current record
   // What's the code should i write in this part in order to create a TEdit
   // containing the user fullname the current item.
   ShowMessage(SQLQuery1['whom']);
   SQLQuery1.Next; // move to the next record
end;

Answer 1

那么，要创建 TEdit，您需要执行以下操作:

创建一个要使用的变量。局部变量或类成员。

Edit: TEdit;

然后你构建它。

Edit := TEdit.Create(Self);

构造函数的参数是所有者。这确保了当其所有者被销毁时该控件也被销毁。我的假设是 Self 是一种形式。

现在您需要为该控件指定一个父控件。

Edit.Parent := Self;

或者也许它在面板上。

Edit.Parent := StatusPanel;

最后，设置文本。

Edit.Text := SQLQuery1['whom']);

对于标签来说，除了使用 Caption 属性而不是 Text 属性之外，一切都非常相似。

您肯定想设置其他属性，但我想您已经知道如何做到这一点。