Ver Mensaje Individual
  #4  
Antiguo 10-02-2010
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Hola,

Yo he logrado algo como esto:



No sé si es lo que quieres. Para ello, redefino el método CustoAlignPosition del formulario:

Código Delphi [-]
procedure TForm1.CustomAlignPosition(Control: TControl; var NewLeft,
    NewTop, NewWidth, NewHeight: Integer; var AlignRect: TRect;
    AlignInfo: TAlignInfo);
begin
    inherited;

    if Control = Panel3 then
    begin
        NewLeft := Panel1.Left + Panel1.Width;
        NewTop := 0;
        NewWidth := ClientWidth - Panel1.Width - Panel2.Width;
    end;
end;

Panel1 tiene alineación alLeft, Panel2 alRight y Panel3 alCustom. Esto último es importante porque si no, no se llama al método CustomAlignPosition.

Lo malo es que la posición y tamaño iniciales del formulario hijo no se ajustan al área sobrante y tienes que moverlo tú mismo.

// Saludos
Responder Con Cita