以下是20秒按下按鈕一,再20秒按下按鈕二,一值重複這個動作,但是我需要能將Timer暫停,也就是需要設計一個按鈕,按一下Timer會暫停,再按一下Timer會繼續,謝謝大家的幫忙. procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled := False; if whichbutton = 1 then begin Button1.Click; whichbutton := 2; end else begin Button2.Click; whichbutton := 1; end; Timer1.Enabled := True; end; procedure TForm1.Button2Click(Sender: TObject); begin Memo1.Lines.Add('Button2 Clicked'); end; procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Add('Button1 Clicked'); end;

jenlin  你好... 是這樣嗎??    

    unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;    type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    whichbutton: Integer;
    bCheck: Boolean;
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.Timer1Timer(Sender: TObject);
begin
//  Timer1.Enabled := False;
  if whichbutton = 1 then
  begin
    Button1.Click;
    whichbutton := 2;
  end
  else
  begin
    Button2.Click;
    whichbutton := 1;
  end;
//  Timer1.Enabled := True    end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add('Button2 Clicked');
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.Add('Button1 Clicked');
end;    procedure TForm1.FormShow(Sender: TObject);
begin
  bCheck:= True;
end;    procedure TForm1.Button3Click(Sender: TObject);
begin
  bCheck:= Not bCheck;
  Timer1.Enabled:= bCheck;
end;    end.    

引言: jenlin 你好... 是這樣嗎??

這樣是可以的,我現在設計成2個按鈕,一個暫停,一個開始,我希望按下暫停後,暫停字會變成紅色,開始也是一樣,我的程式碼如下,不知哪裡錯了,顏色都是黑色,不會變成紅色. procedure TForm1.Button3Click(Sender: TObject); begin Timer1.Enabled := false; Button3.Font.Color := clRed; Button4.Font.Color := clBlack; end; procedure TForm1.Button4Click(Sender: TObject); begin Timer1.Enabled := true; Button3.Font.Color := clBlack; Button4.Font.Color := clRed; end;

這個問題已經解決,謝謝!