上下兩個panel要同樣高度時(在放大也一樣)

上下兩個panel初始高度在介面設成一樣，上面的panel1為altop，下面為alclient，然後在form的Resize事件加入下面程式碼即可。

procedure TForm1.FormResize(Sender: TObject);   
begin  
  panel1.Height := form1.clientheight div 2;
end;