procedure TForm1.FormActivate(Sender: TObject); var i: Integer; begin btn8.Enabled:=False; do begin Sleep(); btn8.Caption := Format('请认真查看(%d)', [I]); //ShowMessage(IntToStr(i)); then btn8.Enabled:=True; Application.ProcessMessages; end; end; Applica…
public class CountDownTimerUtils extends CountDownTimer { private TextView mTextView; /** * @param textView The TextView * * * @param millisInFuture The number of millis in the future from the call * to {@link #st…
1.获取日月 时分秒 //获取 月日 getMonth=(time)=>{ var date = new Date(time) <?):(date.getMonth()+) ?'+date.getDate():date.getDate() return month+'-'+date } //获取时分秒 getTime=(time)=>{ var date = new Date(time) ?'+date.getHours():date.getHours() ?'+date.getMinu…