Komponentem hinzufügen, während das Programm läuft

[Ironmanlu]

Ich möchte gern dass wenn ein bestimmtes Event ausgelöst wird, ein Komponent hinzugefügt wird. Also zB wenn ich jetzt einen Button drücke soll ein Panel hinzugefügt werden. Dieses Panel soll jedoch nicht einfach nur sichtbar werden sondern soll völlig neu erzeugt werden.
mfg- Ironman

 

[horst]

procedure TForm1.CreatePanels;
begin
 APanel := TPanel.Create(Panel1); 
  with APanel do
  begin
// Wenn das neue Panel auf einem Panel liegen soll so
    Parent := Panel1;
// Wenn das neue Panel auf deiner Form liegen soll so
    Parent := Form1;
    Left := 10;
    Top := 10;
    Width := 30;
    Height := 30;
    Color := clblack;
    BorderStyle := bsNone;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreatePanels;
end;