現在の時刻を表示してみる

ラベルを貼り付けて、現在の時刻を表示してみましょう。それでは、まずラベルを貼り付けて、次のプログラムを書いてみてください

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := DateTimeToStr(Now);
end;

（※上のプログラムの書き方、書く場所がわからない方はこちらを見てください。） F9 キーを押して、プログラムを実行させると現在の時刻が表示させる事が出来ました。 でも、プログラムを実行した時の時刻のまま変化がありませんので、なんだか少しさびしい感じがします。せめてリアルタイムに時刻を表示できた方がいいですね。

そんなときは、Timer コンポーネントを使います。それでは、System ページにある Timer コンポーネントをフォームに貼り付けてください。

そして、その貼り付けたTimerコンポーネントをダブルクリックしてください。 そして、次のプログラムを書きます。（青色の部分が実際、手書きするところです）

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := DateTimeToStr(Now);
end;

さらに、日付だけ時刻だけといったことも出来ます。(ラベルを新たに２つフォームに貼り付けてください。）

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := DateTimeToStr(Now);
  Label2.Caption := TimeToStr(Now);
  Label3.Caption := DateToStr(Now);
end;

こんな感じになります。フォントの変え方は、こちらを見てください。

up next
Last update: 2002/2/24