Question

delphi中添加控件的问题

在delphi中可以在代码编辑器中使用命令添加控件并且设置相关的属性？如果可以，怎么实现？谢谢！

Answer 1

当然可以，还可以动态创建控件数组，给你两个简单的例子：

动态创建组件：
procedure TForm1.Button1Click(Sender: TObject);
var
MyButton : TButton;
begin
MyButton := TButton.Create(Self);
MyButton.Parent := Form1;
MyButton.Top := 10;
MyButton.Left := 10;
MyButton.Height := 25;
MyButton.Width := 75;
MyButton.Caption := '确定';
MyButton.OnClick := Mybuttonclick;
MyButton.Show;
end;

procedure TForm1.Mybuttonclick(Sender: TObject);
begin
Application.MessageBox('动态创建的Button组件','提示',64);
end;

动态创建控件数组：

procedure TForm1.Button1Click(Sender: TObject);
var
MyButton:array of TButton;
i,m:integer;
begin
SetLength(MyButton,6);
for i := 0 to 5 do
begin
MyButton[i] := TButton.Create(Self);
MyButton[i].Top := 10 + i * 30;
MyButton[i].Left :=20;
MyButton[i].Height := 30;
MyButton[i].Width := 70;
MyButton[i].Parent := Self;
MyButton[i].Caption := '按钮';
MyButton[i].OnClick := Mybuttonclick;
MyButton[i].Show;
Button1.Visible := False;
end;
end;
procedure TForm1.Mybuttonclick(Sender: TObject);
begin
showmessage('动态组件数组');
end;

上面都是动态创建button组件的例子，其他的组件你可以参照上面的例子自己写。。。

Answer 2

假如要生成一个bt的按钮：

procedure TForm1.Button1Click(Sender: TObject);
//在button1旁边生成一个bt按钮
var
bt:tbutton;
begin
bt:=Tbutton.Create(self); //指定创建在哪个窗体上
bt.Parent:=form1; //指定父类，否则控件可能无法显示
bt.Top:=button1.Top;
bt.Left:=button1.Left+button1.Width+10;
bt.Caption:='bt';
bt.OnClick:=btclick;
end;

其他组件基本类似

Answer 3

直接在project下直接添加然后再属性窗口直接设置即可