如何生成动态控件？

Question

var testEdit:TEdit;procedure Button1OnClick;
begin
  testEdit:=TEdit.Create(Self);
  testEdit.Parent:=self;//属于本窗体的.
  //位置自己控制。
  testEdit.top:=self.top-10;
  testEdit.left:=self.left+10; 
  testEdit.width:=width-100;
  //
end;
procedure button2Onclick
begin
  testEdit.Free;
end;

Answer 1

    简言之：(1)采用Application.CreateForm(TForm,FormName)方法来动态生成窗体，比如要动态生成名为Form1的普通窗体，就是Application.CreateForm(TForm,Form1),然后就用Form1.Show()方法将它显示出来，如果要设置它的相关属性就直接引用TForm的所有相关属性即可；
(2)要动态生成控件那么就得先对该类进行声明，也就是在Uses里引用相关的.pas文件，然后就和saoren的方法来生成控件。

Answer 2

多SAOREN的补充。var testEdit:TEdit;procedure Button1OnClick;
begin
  testEdit:=TEdit.Create(Self);
  testEdit.Parent:=self;//属于本窗体的.
  //位置自己控制。
  testEdit.top:=self.top-10;
  testEdit.left:=self.left+10; 
  testEdit.width:=width-100;
  testEdit.Show;   //<---------------此句对可视控件要加入。
  //
end;
procedure button2Onclick
begin
  testEdit.Free;
end;

Answer 3

//这里有一个子过程，后面付例子，一看就明白//Designed by Quark
unit EXPro_WinControls;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, ExtCtrls, Grids;//动态创建控件
function DynaCreateComponent(OwnerName: TComponent; CompType: TControlClass; CompName: String; V_Left,V_Top,V_Width,V_Height:Integer): TControl;implementationfunction DynaCreateComponent(OwnerName: TComponent; CompType: TControlClass; CompName: String; V_Left,V_Top,V_Width,V_Height:Integer): TControl;
begin
  if (OwnerName.FindComponent(CompName)<>nil) and not(OwnerName.FindComponent(CompName) is TControl) then
  begin
    Result := nil;
    exit;
  end;
  Result := OwnerName.FindComponent(CompName) as TControl;
  if Result=nil then
  begin
    Result := CompType.Create(OwnerName);
    with Result do
    begin
      if OwnerName is TwinControl then
      begin
        SetBounds(V_Left,V_Top,V_Width,V_Height);
        Parent := TwinControl(OwnerName);{如果是可视构件,则显示之}
        if OwnerName is TForm then TForm(OwnerName).ActiveControl := TWinControl(Result);{设置窗口焦点}
      end;
    end;
    Result.Name := CompName;
  end
  else {Result<>Nil}
  if not(Result is CompType) then
  begin
    Result := nil;
    Exit;
  end;
  Result.Visible := True;
{对于未知数量的控件组，利用TList
var ControlList: Tlist; CreateNum: integer;
const CreateClass : TControlClass = TButton;//可以任意修改TControlClass = TEdit或TPanel等。效果一样。
var i:integer; V_Point: Pointer;
ControlList := TList.Create;
ControlList.Clear;
CreateNum := 10;
for i:=1 to CreateNum do
    begin
      V_Point := Pointer(DynaCreateComponent(self,CreateClass,'Button_' + IntToStr(i),0,i*20+1,60,20));//创建
      ControlList.Add(V_Point);
    end;
TButton(ControlList.Items[i]).Caption := 'XXXX';}
end;end.