procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=20 and timer1.Enabled=true then begin
timer1.Enabled :=false;
end
else
timer1.Enabled :=true;
end;
哪为大哥帮我看看哪了错了,我想实现的是当按下空各键时timer1停止工作,再按又开始工作。
Shift: TShiftState);
begin
if key=20 and timer1.Enabled=true then begin
timer1.Enabled :=false;
end
else
timer1.Enabled :=true;
end;
哪为大哥帮我看看哪了错了,我想实现的是当按下空各键时timer1停止工作,再按又开始工作。
Timer.Enabled := not Timer.Enabled;
你的只有在第一次且Timer.Enabled的时候起作用