掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンポーネントのイベント実装 (ID:44913)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
constructor TREdit.CreateEX(Origin :TEdit); begin OnClick := rClick; ...(3) end; rClickは見たところ TNotifyEventのハンドラのようですが CreateExのほかの部分はそのままに OnClickのイベントハンドラの指定のみを procedure Afterconstruction; override; あるいは constructor Create(AOwner:TComponent); override にうつしたらどうなりますかね・・・。 OnClickを指定しなくとも monaa さんもおっしゃってますが procedure Click; override; で procedure TREdit.Click; begin // inherited Click; showmessage('Click!'); end; とすると目的が達成できるように思います。 この場合、inherited Click をやらないと property OnClick に Assignした TNotifyEventは呼ばれませんが showmessageは実行されます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.