掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
OnChangeのキャンセルをするには (ID：36359)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
基本的にはぼるしちさんや邪さんと方法は同じなのですが、 以下のようにしておくと若干楽かもしれません。 type TEdit = class(StdCtrls.TEdit) private procedure SetInitText(const Value: string); public property InitText: string write SetInitText; end; // ↑フォームクラス宣言の上に書く TForm1 = class(TForm) ... procedure TEdit.SetInitText(const Value: string); var tmp: TNotifyEvent; begin tmp := Self.OnChange; Self.OnChange := nil; try Self.Text := Value; finally Self.OnChange := tmp; end; end; これでTEditにInitTextプロパティが追加されるので、 Textプロパティに代入する代わりにInitTextに代入すると イベントを発生させずにデータを入れられると思います。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.