delphi 空格控制（在线等大侠）

Question

edit1 中输入数字
  
如果输入5位时；
按下空格时  timer1开始滚动
如果不是5位
则提示错误；
 
再按下空格  timer1停止 
在onkeypress事件中怎么写。

Answer 1

if key=#0 then
begin
   ........判断是否五位
end;

Answer 2

在Edit1的OnKeyDown中写入代码procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key =32) then
  begin
    //自己写开启Timer和关闭Timer的代码就可以了
  end;
end;

Answer 3

那如何去判断5位数呢 ！！
if (key =#32)  then
begin
TIMER1.Enabled:=true;
end
else
TIMER1.Enabled:=true;
这样也再次按下回车键也没法停在哈

Answer 4

再开启Timer时加个判断就可以了呀.

Answer 5

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);begin
if (key =#32)  then
begin
TIMER1.Enabled:=true;
end
else
begin
TIMER1.Enabled:=false;
end
要怎么加？？？  我不是很明白！！！！！！！！！

Answer 6

 if (Key = #32) then
  if  (Edit1.Tag = 0) then
  begin
    if CheckNumber(Trim(Edit1.Text)) then
    begin
      Timer1.Enabled := true;
      Edit1.Tag := 1;
    end
  end else
  begin
    Timer1.Enabled := false;
    Edit1.Tag := 0;
  end