Ver Mensaje Individual
  #2  
Antiguo 16-06-2023
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.734
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
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.

Última edición por duilioisola fecha: 16-06-2023 a las 17:14:14.
Responder Con Cita