用了Timer之后他就会自己自动倒计时，怎么才能在按了“开始”按钮之后才开始倒计时呢？那段代码要怎么写？ 求大神教。。。明天就要交了。。。

timer的enable属性
设为 false 停止
设为 true 启动
【开始】按钮的点击事件 里 设timer的enable属性为true
timer的ontime事件里去 写 倒计时的代码

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end; procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=intTostr(strToint(Label1.Caption)-1);
if strToint(Label1.Caption) = 0 then
begin
Timer1.Enabled:= false;
end;
end;

正常计时和倒计时都可以......
var
djs: Boolean; // 倒计时
time1: TTime; //
procedure TForm1.Button3Click(Sender: TObject);
begin
djs := not djs;
if djs then
begin
time1 := Time + EncodeTime(0, StrToInt(LabeledEdit9.Text), 0, 0);
Button3.Caption := '停止计时';
end
else
Button3.Caption := '开始计时';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
djs := False; // 倒计时停止
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := DateTimeToStr(now);
if djs then
Label2.Caption := TimeToStr(time1 - Time);
end;

计时器没动

QB_hook
多谢你分享
正研究这个