delphi 问题，很简单的！~~

Question

我想问一下，
edit为什么里面的autosize 不管用呢？
文字上下是自动的高度，但是文字长度不能自动，
怎么做才能让长度合适而且，edit屏幕居中呢？

Answer 1

在Form中:
var
 w:dword;
begin
Canvas.TextWidth(Edit1.Text);
w:=Canvas.TextWidth(Edit1.Text);
Edit1.Width:=w;    //长度合适
edit1.SelectAll;
Edit1.Left:=(width-w) div 2; //屏幕居中
end;

Answer 2

问一下，EDIT字后面背景怎么弄成透明的，
怎么自己画，