界面属性设置问题，菜鸟提问

Question

现在我碰到一个问题，就是我在一个界面里有两个Memo,分别和Memo1和Memo2，我想让界面不管在最小化还是最大化的时候两个Memo的高度都分别占窗体的一半，就是平均分配，还有在分辨率不同的时候也一样可以办到吗？请各位大侠指教！

Answer 1

procedure TForm1.FormShow(Sender: TObject);
begin
  align:=alclient;
  memo1.Height:=height div 2;
  memo1.Align:=altop;
  memo2.Align:=alclient;
end;

Answer 2

楼上的有问题吧
应该是客户区的高度吧procedure TForm1.FormShow(Sender: TObject);
begin
  align:=alclient;
  memo1.Height:=clientheight div 2;
  memo1.Align:=altop;
  memo2.Align:=alclient;
end;

Answer 3

当然可以，把上面的一个memo设置align为altop，下面的memo把align设为alclient。然后在窗口的onshow和resize事件里面让他的高度等于窗口高度的一半（这里用代码控制）就行了。

Answer 4

procedure TForm1.FormShow(Sender: TObject);
begin
 // align:=alclient;这一句不要，不然会出现问题的，不信你试试
  memo1.Height:=clientheight div 2;
  memo1.Align:=altop;
  memo2.Align:=alclient;
end;