怎样在运行时创建控件？

[benben1hao]

我根据一条IF语句，如果为真，则在指定位置创建一个EDIT，否则则创建一个COMBOBOX。

[34535345345345345345]

procedure TForm1.Button1Click(Sender: TObject);
var
Edit: TEdit;
ComboBox: TComboBox;
begin
if 1=1 then
begin
Edit:=TEdit.Create(self);
edit.Parent:=self;
edit.Left:=0;
edit.Top:=100;
edit.Visible:=true;
end
else
begin
ComboBox:=TComboBox.Create(self);
ComboBox.Parent:=self;
ComboBox.Left:=0;
ComboBox.Top:=100;
ComboBox.Visible:=true;
end;
end;

[dh9450]

NAME不指定？

[charles2118]

myComboBox:TComboBox;
begin
if 条件then
with TEdit.Create(self)do
begin
属性设置；
事件设置；
end
else
with TComboBox.Create(self)do
begin
属性设置；
事件设置；
end
end;

[tjff2000]

来晚了。

[ysycrazy]

procedure TForm1.Button2Click(Sender: TObject);
var edit1:TEdit;
combox1:TComboBox;
begin
if true then
begin
edit1:=TEdit.create(self);
edit1.parent:=form1;
edit1.left:=10;
edit1.top:=10;
end
else
begin
combox1:=TComboBox.create(self);
combox1.parent:=form1;
combox1.left:=10;
combox1.top:=10;
end;
end;

[qiume]

给你个例子:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

var
G_Boolean: Boolean; // 建立TEdit的条件;
vEdit: TEdit; // 要建立的TEdit;
vComboBox: TComboBox; // 要建立的TComboBox;

procedure TForm1.Button1Click(Sender: TObject);
begin
G_Boolean := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if G_Boolean then
begin
vEdit := TEdit.Create(Self);
vEdit.Name := 'vEdit';
vEdit.Parent := Self;
vEdit.Top := 100;
vEdit.Left := 100;
vEdit.Width := 200;
vEdit.Height := 20;
vEdit.Text := 'vEdit';
end
else begin
vComboBox := TComboBox.Create(Self);
vComboBox.Name := 'vComboBox';
vComboBox.Parent := Self;
vComboBox.Top := 100;
vComboBox.Left := 100;
vComboBox.Width := 200;
vComboBox.Height := 20;
vComboBox.Text := 'vComboBox';
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
vEdit.Free;
vComboBox.Free;
end;

end.

// 窗体上需要两个TButton, Button1和Button2;

[Shawphen2000]

PageTab控件如何在运行时自动添加一页呢？

[knock]

你拖的控件和运行时动态创建的控件是一样的，不同的是，动态创建的你需要用代码设定控件的属性，而静态的控件可以直接从Object Inspector里设置