Dividir formulario proporcionalmente

[ecfisa]

Por ejemplo, un formulario que esta divido en 4 partes iguales y en cada parte tenga un TChart. La pregunta es, ¿se puede hacer esto con las propiedades tipicas de Aling? ¿hay que usar algun otro componente?

Hola Toni.

Para este caso en especial, se me ocurrió algo aprovechando el evento OnCanResize del form.

Un ejemplo usando cuatro TPanels:

Código Delphi [-]
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer;
  var Resize: Boolean);
var
  R: TRect;
  Ancho, Alto: Integer;
begin
  Ancho:= GetClientRect.Right div 2;
  Alto:= GetClientRect.Bottom div 2;
  with Panel1 do
  begin
    Height := Alto;
    Width  := Ancho;
  end;

  with Panel2 do
  begin
    Top    := Panel1.Top + Alto;
    Height := Alto;
    Width  := Ancho;
  end;

  with Panel3 do
  begin
    Left   := Ancho;
    Height := Alto;
    Width  := Ancho;
  end;

  with Panel4 do
  begin
   Top     := Panel1.Top + Alto;
   Left    := Ancho;
   Height  := Alto;
   Width   := Ancho;
  end;
end;

Los TChart podrías ubicarlos en cada TPanel con su propiedad Aligng = alClient. Espero te sirva o te dé alguna idea...

Un saludo