Dividir formulario proporcionalmente

[ecfisa]

Hola LoPiTaL.

Estuve probando otra vez con el método CustomAlignPosition (ya que antes no encontré como lograrlo ) y como muchas veces pasa, lo que no salía antes salió después...

Para 4 Panels(propiedad Align = alCustom) en mosaico, redimensionables:

Código Delphi [-]
procedure TForm1.CustomAlignPosition(Control: TControl; var NewLeft, NewTop, NewWidth, NewHeight: Integer; var AlignRect: TRect;
  AlignInfo: TAlignInfo);
begin
  inherited;
  NewWidth  := GetClientRect.Right div 2;
  NewHeight := GetClientRect.Bottom div 2;
  if Control = Panel1 then
  begin
    NewLeft := 1;
    NewTop  := 1;
  end;
  if Control = Panel2 then
  begin
    NewLeft := Panel1.Width;
    NewTop  := 1;
  end;
  if Control = Panel3 then
  begin
    NewLeft := 1;
    NewTop  := Panel1.Height;
  end;
  if Control = Panel4 then
  begin
    NewLeft := Panel1.Width;
    NewTop  := Panel1.Height;
  end;
end;

Saludos.