掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Timerイベントメゾットについて (ID：14028)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> （OnTimerをTBeepTimer上で設定したりすることは無理ですよね...??） できますよ。以下ではコンストラクタで設定しています。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TBeepTimer = class(TTimer) protected procedure Timer; override; procedure Dummy(Sender: TObject); public constructor Create(AOwner:TComponent);override; end; TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private 宣言 } public bt:TBeepTimer; end; var Form1: TForm1; implementation {$R *.dfm} constructor TBeepTimer.Create(AOwner:TComponent); begin inherited; if not (csDesigning in ComponentState) then OnTimer := Dummy; end; procedure TBeepTimer.Timer; begin inherited; Beep; end; procedure TBeepTimer.Dummy(Sender: TObject); begin // なにもしない end; procedure TForm1.FormCreate(Sender: TObject); begin bt := TBeepTimer.Create(self); end; end.
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.