同时添加多个控件？

Question

请问如果我想在窗体上添加100个按钮，有没有什么便捷的方式完成这个操作？

Answer 1

先添加一个按钮，然后复制它，再Ctrl+V 99次

Answer 2

var bl: array[1..100] of TButton;
    i: Integer;for i:=1 to 100 do
begin
   bl[i]:=TButton.Create(Self);
   bl[i].Parent:=Form1;
   bl[i].Name:='Button'+IntToStr(i);
   bl[i].Caption:=bl[i].Name;
end;

Answer 3

想法很好，我也看懂了。但是数组定义时of后面是基类型，不能是tbutton.

Answer 4

按 shift键时点一个组件，然后在窗体中添加，这时点一下左键出来一个。。
出来十个八个后圈住他们，复制粘贴 粘贴 粘贴
一会儿就搞掂

Answer 5

lufancy(同志) 
You are very very vlever

Answer 6

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;type
  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  m:integer;
  btn:array of tbutton;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
n:integer;begin
   if m>0 then
   begin
     for i:=0 to m-1 do
      begin
        btn[i].Free;
      end;
   end;
   n:=strtoint(self.Edit1.Text );
   setlength(btn,n);
   m:=n;
   for i:=0 to n-1 do
   begin
   btn[i]:=tbutton.Create(self);
   btn[i].Height:=30;
   btn[i].Width :=30;
   btn[i].Top:=0;
   btn[i].Left :=i * btn[i].Width +2;
   btn[i].Parent:=self.Panel1;
   end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
    m:=0;
end;end.
这是我做的一个动态添加按钮的一个事例，可以实现按钮的自动添加和更新，希望对你有帮助

Answer 7

lufancy(同志):
You are very smart

Answer 8

hlddg(hlddg) :
你很聪明   但有的时候并没必要这么麻烦

Answer 9

to  Reiner9000(颦儿) 请指点！

Answer 10

用循环动态创建，保存在数组里！
有问题请发信息到我的E-mail:[email protected]