掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
時・分・秒を表示するには? (ID：42354)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
簡単に・・・ TTimeLabel = class(Vcl.StdCtrls.TLabel) private FTimer: TTimer; protected procedure TimerOnTimer(Sender: TObject); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; published end; constructor TTimeLabel.Create(AOwner: TComponent); begin inherited Create(AOwner); FTimer := TTimer.Create(Self); FTimer.OnTimer := TimerOnTimer; end; destructor TTimeLabel.Destroy; begin FTimer.Free; inherited Destroy; end; procedure TTimeLabel.TimerOnTimer(Sender: TObject); begin Caption := TimeToStr(Now); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.