关于TEdit的问题

Question

1.如何让Edit只能输入5个字符，并且一个Edit输完后自动将光标移动到下一个Edit，就像安装软件时输入序列号一样。
2.将Edit中的内容加到Memo中需要让Edit中的内容最多只有7个字符，如果不够的话在输入的内容前边用空格补齐7位，该如何做。

Answer 1

1.设定Edit的MaxLength为5，在KeyPress里面判断是否输入了5个字符，如果是则给下一个Edit设置焦点。
2.加内容的时候再把Edit的MaxLength设为7个字符,如果不够就先计算这个Edit总共有多少个直接，如果不够七个，就在前面补0补够7个

Answer 2

自动将光标移动到下一个Edit好像是Edit1.setFou...什么的！

Answer 3

同意Linux2001(我想买手提电脑啊！)

Answer 4

方法如： Linux2001(我想买手提电脑啊！) 
代码如下：
1、
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if length(trim(Edit1.Text))= 5   then
   begin
   Edit2.SetFocus();
   end;
end;2、
procedure TForm1.BitBtn1Click(Sender: TObject);
var c: string ;
begin
a:='0000000' ;
   if length(trim(Edit2.Text))< 7   then
      begin
       c:=copy(a,1,7-length(trim(Edit2.Text)))+Edit2.Text;
       Memo1.Lines.Add(c)
      end;
end;

Answer 5

来晚了，up以下
   if length(trim(Edit1.Text))= 5   then
   begin
   Edit2.SetFocus();
可以了