Question

I have a delphi form of dimensions say (600 * 400) i.e, width = 600 and height = 400. I have kept 3 panels on it of same size with dimensions (150 * 300) which are equidistant from each other.

Now, I need that when I resize the form (make smaller or bigger manually or by maximize button), panels should resize themselves with the form.

I am using anchors property for this. But its not working as desired. Panels are getting overlapped with each other. I am confused which anchor property to set true or which to false to accomplish this functionality. Please help me out in this.

Answer 1

You have to position and resize them manually. You can use the panel’s owner’s OnReSize-Method.

procedure TOwnerForm.OnResize(Sender : TObject);
begin
  panel1.width := Self.Width div 3;
  panel2.width := Self.width - 2*panel1.Width;
  panel3.width := Self.Width - panel1.Width - panel2.Width;
  panel1.Left := 0;
  panel2.Left := panel1.left + panel1.width;
  panel3.left := panel2.left + panel2.width;
  panel1.top := 0;
  panel2.top := panel1.top;
  panel3.top := panel1.top;
end;