Question

delphi中我新建一个Form，然后里面放了一个TMemo控件，如何让TMemo控件自适应呢？

delphi中我新建一个Form，然后里面放了一个TMemo控件，如何让TMemo控件通过里面文本的多少自适应高度呢？ 并连同Form也可以控制自适应？ 哪位大哥给点代码参考下，感谢！

Answer 1

如图，调整好memo在图片中位置和大小后，设置成全部true。就会随着form同缩放。

Answer 2

一个文本显示框,如果想做的漂亮一点,应该使用富文本框,因为它可以进行段落字体属性设置.但是你要求大小自适应,这就有些欠妥了,如果文本有好千字呢?因此,我还是赞成使用滚动条.这样做的软件要显得正式一些.否则如果有几千字,窗体就会超出屏幕的大小,文字还是看不到.用户岂不叫烦!
你说的问题,首先要根据你要的字体字号,再就是字数,计算一下,一行能够显示多少字,然后再乘字高,这就计算出了memo的高度,然后这个高度,再加上窗体加上memo后的空白高度,就是窗体高度了.在memo更新事件中,进行上述计算,并完成对memo和窗体高度的设置.

Answer 3

TMemo中有个属性叫Align将其设置为alClient,意思就是随着客户区的改变而改变。
如果Form要自适应的话，就要修改其Left,Top,Width,Heigth的值了，获得屏幕的分辨率可以通过TScreen来获得。

Answer 4

你应该在添加控件之前，先在窗体里面添加一些PANEL控件或者groupbox控件，把窗体分割成不同的区，然后在这些区里面再放你需要的控件。这些panel或groupbox可以设置他们的ALIGN属性为ALLEFT,ALRIGHT,Altop,ALCLIENT等等，这样当窗体变化时它们可以自动调节大小，如果效果还不好，可以再在这些panel里面再添加多个panel来进一步分割，以此类推就可以，如果嫌panel的边框不好看，可以把里面panel的bevelouter属性设置为bvNone就可以了。
如果有更高的比例要求，就在窗体的onsize事件里面，设定各种panel的宽度高度就可以了。

Answer 5

你根本不需要让TMemo自适应高度，加一个滚动条就都OK了呀。