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.