Generar dinàmicamente componentes

[[duilioisola]]

El conepto es este:

Código Delphi [-]
procedure TForm.CrearMemo(Padre : TWinControl);
var
  m : TMemo;
begin
  /// Crea un Memo dentro de "Padre" alineado al cliente.
  m := TMemo.Create(Self);
  with m do
  begin
    Parent := Padre;
    Align := alClient;
  end;
end;

procedure TForm.CrearPaneles(Padre : TWinControl);
var
  i : integer;
  p : TPanel;
begin
  /// Crea 5 paneles dentro de "Padre" de 100x100
  for i := 1 to 5 do
  begin
    p := TPanel.Create(Self);
    with p do
    begin
      Parent := Padre;
      Top := 100;
      // Los pego uno a otro cada 100px.
      Left := 100 * i;
      Width := 100;
      Height := 100;
    end;

    CrearMemo(p);
  end;
end;

begin
  [...]
  CrearPaneles(PanelObservacion);
  [...]
end.

[edgar1575]

te lo esta creando, sino que lo esta superponiendo en la propiedad top

[Casimiro Noteví]

Bienvenido a clubdelphi, por favor, lee nuestra guía de estilo, gracias.