Cita:
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