掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
関数の宣言と定義について (ID:12056)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
OnClickイベントは、TNotifyEvent型で、これはfunction(Sender:TObject) of object;となっていると思います。 function 〜 of objectというのは、「オブジェクトのメンバ関数」ということですので、次のようになります。 unit Unit2 interface uses (適当に足りないユニットを追加); type TEventManager = class(TObject) private { Private 宣言 } public { Public 宣言 } function Form1Button1Click(Sender: TObject);//Form1のButton1のOnClickイベント end; var EventManager: TEventManager; implementation uses Unit1; function TEventManager.Form1Button1Click(Sender: TObject); begin Form1.Edit1.Text := 'Test'; end; //usesした時点で作成、終了時に破棄したいなら以下２つ。 initialization EventManager := TEventManager.Create; finalization if Assigned(EventManager) then EventManager.Free; end. として、例えばForm1のOnCreateで、 Button1.OnClick := EventManager.Form1Button1Click; とすればイベントを割り当てられます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.