一个动态添加panel 和 删除panel的例子

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     PanelArry:Array[1..5]   of   TPanel;
  end;

var
  Form1: TForm1;
  i:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
j:integer;
ExistsPanel:boolean;
begin
 for i:=0 to  5 do
  begin
  if PanelArry[i]=nil  then
    begin
    j:=i ;
    ExistsPanel:=false;
    break;
    end
    else
     ExistsPanel:=true;
  end;
   if  ExistsPanel then
    begin
     showmessage('Full,Genispan should learn more.');
     exit;
    end;
 PanelArry[j]:=TPanel.Create(Self);
 PanelArry[j].Left:= (j-1)*200;
 PanelArry[j].Parent:=Self;
 PanelArry[j].Caption:='Panel'+inttostr(i);
 ListBox1.Items.Add(inttostr(j));
 i:=i+1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if ListBox1.ItemIndex<0 then
   begin
   showmessage('Choose a item in Listbox1,Genispan should be careful');
   exit;
   end;
  PanelArry[strtoint(ListBox1.Items[ListBox1.ItemIndex])].Free;
   ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

end.