在Form的Resize事件中编写就可以了，我这边取的是窗体的宽的一半，具体楼主想设置多少只要自己改下就行了、
procedure TForm1.FormResize(Sender: TObject);
begin
memo1.Width :=form1.Width div 2;
end;
完全随改必须得自己编程序控制．．
如果想达到类似效果
可以设置 控件的anchors为aktop=true akright=true 其它两项为false
设置它的属性
FormResize中写代码
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024