掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
カスタムコントロール：独自イベントを作成するには？ (ID:21589)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>プロパティが変更した時に発生するイベントを定義 こんな感じですか？ （動作確認していないので、もしかしたらおかしいところがあるかもしれませんが。） TMyTreeView = class(TTreeView) private { Private 宣言 } FMyCheck: boolean; FOnMyCheckChanged: TNotifyEvent; procedure SetMyCheck(const Value: boolean); public { Public 宣言 } constructor Create(AOwner: TComponent); override; published { Published 宣言 } property MyCheck: boolean read FMyCheck write SetMyCheck default False; property OnMyCheckChanged: TNotifyEvent read FOnMyCheckChanged write FOnMyCheckChanged; end; Constructor TMyTreeView.Create(AOwner: TComponent); begin Inherited Create(AOwner); FMyCheck := False; end; procedure TMyTreeView.SetMyCheck(const Value: boolean); begin FMyCheck := Value; if Assigned(FOnMyCheckChanged) then OnMyCheckChanged(Self); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.