怎样用button激活一个时间控件!

Question

我想实现的功能就是一个button按钮,显示 '开始运行',点击完激活timer,然后button显示 '结束',当点击结束的时候,停止timer,button显示 '开始运行'!就这么一个过程!希望高手可以帮下我

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TButton(Sender) do begin
    case Tag of
      0 : Caption := '结束';
      1 : Caption := '开始运行';
    end;
    Timer1.Enabled := not Boolean(Tag);
    Tag := Byte(Timer1.Enabled);
  end;
end;

Answer 2

{补充：初始设置}procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := False;
  Button1.Caption := '开始运行';
end;

Answer 3

Procedure TForm1.buttonClick(Sender:TObject);
begin
 If button.Caption='开始运行' then
   begin
    Timer.Enabled:=True;
    button.Caption:='结束';
  end
 else
   begin
    Timer.Enabled:=False;
    button.Caption:='开始运行';
  end;
end;