Timerイベントメゾットについて (ID:14019)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 TTImerを上位クラスとしたTBeepTimerを作ろうとしています。 Timerが呼ばれるごとに、Beepを鳴らすだけのものです。 なので、Timerイベントメゾットをoverrideして、Beepを付け足せばよいものと思い、 procedure TBeepTimer.Timer; begin if Assigned(FOnTimer) then begin FOnTimer(Self); Beep; end; end; としたのですが、これをFOrm1にはりつけても、何も動作しませんでした。 ですが、そのコンポーネントのOntimerイベントに何か動作を加える procedure TForm1.BeepTimer1Timer(Sender: TObject); begin // end; のようにしておくと、ちゃんと動作してくれます。 多分、Ontimerに何か書き込むことで、Form上で何かを宣言などしているのでしょうかが、現状の自分ではわかりませんでした。 ですので、もしよろしければ原因と解決方法についてご教授のほどお願いいたします。（解決方法はコンポーネント内のみでの方法です） 日本語不十分の箇所もたくさんあるでしょうが、その場合はご質問ください。