＋设为首页 ＋添加到收藏夹
请问如果我想在窗体上添加100个按钮，有没有什么便捷的方式完成这个操作？
先添加一个按钮，然后复制它，再Ctrl+V 99次
unit Unit1;
interface
uses
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].:=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.
这是我做的一个动态添加按钮的一个事例，可以实现按钮的自动添加和更新，希望对你有帮助
