DateTimePickerで設定時刻になったらイベントを発生させたいのですが

解決

Nobu 2005-12-08 08:15:23 No: 19096

DateTimePicker1.Time//現在の時間
いつも参考にさせていただいています。

DateTimePicker2.Time//イベントを発生させる時間
なのですが、以下コードで、まったく反応しません。
なぜ、なのでしょうか？色々自分でも実験してみてるのですが・・・

procedure TForm1.Timer1Timer(Sender: TObject);
begin
DateTimePicker1.Time:=Time;
If DateTimePicker2.Time=DateTimePicker1.Time Then ShowMessage('時間だよ');
end;

りおりお 2005-12-08 08:37:41 No: 19097

TDateTime 型は Double 型で浮動小数ですから = で等しいことを検出するのは
正しくないのでは？

If DateTimePicker2.Time <= DateTimePicker1.Time Then

とすべきでは？

Nobu 2005-12-08 16:00:00 No: 19098

りおりおさん
＞Double 型で浮動小数
そうなんですね。
ありがとうございました。
出来ました。