タイマーでタイムレフトを取得するには？

Question

可能性の重複：タイマーが実行されるときに、現在のtimeleftにを取得する方法
Delphi Timer: Time before next event

？例えば

：

私はその後、私は最初のタイマー

procedure TForm1.second_Timer(Sender: TObject); 
begin 
    second_Timer.Interval := 1000; 
    Label1.Caption := IntToStr(my_Timer.timeleft); // How ??? 
end; 

のtimeleftにを取得することです理由は別のタイマ（インターバル1000）を作成する間隔60 000

procedure TForm1.my_Timer(Sender: TObject); 
begin 
    // do something 
end; 

とタイマーを作成

ありがとうございました。

Answer 1

この情報はタイマーから取得できません。あなたができる最善のことは、タイマーが最後にいつ発砲したのかを記録して、それを自分で解決することです。たとえば、TStopwatchを使用してこれを行うことができます。

Answer 2

TTimer自体にはこの機能がありません。 1つのオプションはそうのような残り時間を格納する第一のタイマのタグプロパティを使用することです：

procedure TForm1.MyTimerTimer(Sender: TObject); 
begin 
    MyTimer.Tag := MyTimer.Interval; 
    // Do something 
end; 

procedure TForm1.Second_TimerTimer(Sender: TObject); 
begin 
    MyTimer.Tag := MyTimer.Tag - Second_Timer.Interval; 
    Label1.Caption := 'Time Left '+IntToStr(MyTimer.Tag); 
end; 

Answer 3

はちょうど私のハックの道を作成し、私は[ブラッディ繰り返し二つのグローバルVARS

var 
    my_timer_interval_hack : integer; 
    my_timer_timeleft_hack : integer; 

procedure TForm1.my_Timer(Sender: TObject); 
begin 
    // do something 


    // hack, reset timer TimeLeft 
    my_timer_timeleft_hack := my_Timer.Interval; 
end; 



procedure TForm1.second_Timer(Sender: TObject); 
begin 
    second_Timer.Interval := 1000; 

    // hack get timeleft from my_timer 
    my_timer_timeleft_hack := my_timer_timeleft_hack - 1000; 
    if my_timer_timeleft_hack <= 0 then 
    my_timer_timeleft_hack := my_timer.Interval; 

    Label1.Caption := IntToStr(my_timer_timeleft_hack); 
end;