時計
Timerコンポーネントを使って簡単なディジタルクロックを作ってみます。アナログ時計は結構面倒ですが、ディジタルクロックは非常に簡単です。
Timerコンポーネントをフォームに貼りつけて、オブジェクトインスペクタでIntervalを変更しておきます。デフォルトでは1000となっています。これは一秒間隔(1000ミリ秒)でタイマーイベントが発生するということです。このままでもよいのですが、これだと最大1秒の誤差が発生するので、もっと小さな値のほうがよいと思います(ただし小さくしすぎても意味がないですが)。表示は、StaticTextを使って表示しています。StaticTextのBorderStyleはsbsSunkenにして枠を表示させました。
日付と時刻はNow関数で取得します。この関数は、TDateTime型(実数型と同じ)を返すので、これを文字列に変換するDateTimeToStr関数を使って、StaticTextのCaptionプロパティに代入しています。
ソース(青色部分がプログラムを記述した部分です)
unit Main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; stxTime: TStaticText; procedure Timer1Timer(Sender: TObject); private { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Timer1Timer(Sender: TObject); begin stxTime.Caption := DateTimeToStr(Now); end; end.