一个窗体中放两个panel，怎么让他们在不同的分辨率下平分窗体，有这样的控件或方法吗？

Question

一个窗体中放两个panel，怎么让他们在不同的分辨率下平分窗体，有这样的控件或方法吗？

Answer 1

panel1.Align:=alleft;
 panel2.Align:=alclient;
他们中间放个Splitter在FORM的resize事件中加入
procedure TForm1.FormResize(Sender: TObject);
begin
 panel1.Width:=form1.Width div 2-10;
end;

Answer 2

用代码控制了....panel1.Width:=.....

Answer 3

panel1.Align:=alleft;
 panel2.Align:=alclient;
他们中间放个Splitterpanel1.Width:=screen.width/2;

Answer 4

screen.width建议改为 form1.clientwidth

Answer 5

将panel1.align设为alleft，panel2.align设为alClient,然后panel1.Width:=form1.width/2;就行了，panel2不用管

Answer 6

同意ghy412(用心良苦) 
panel1.Align:=alleft;
 panel2.Align:=alclient;
他们中间放个Splitterpanel1.Width:=screen.width/2;