掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
入力桁数のチェック方法 (ID：2456)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
私はイベントで取得できるようするのがいいかと思います 以下を例としてあげておきます type TGetEditTextEvent = procedure(Sender: TObject; const EditText: String) of object; TMyDBGrid = class(TDBGrid) private FOnGetEditText: TGetEditTextEvent; protected procedure SetEditText(ACol, ARow: Longint; const Value: string); override; public // public で宣言してますが、コンポーネントととして登録するのなら, // published で宣言した方がいいかも property OnGetEditText: TGetEditTextEvent read FOnGetEditText write FOnGetEditText; end; implementation { TMyDBGrid } procedure TMyDBGrid.SetEditText(ACol, ARow: Integer; const Value: string); begin // 上位クラスのSetEditTextを呼び出し inherited SetEditText(ACol, ARow, Value); // イベントが設定されていれば、OnGetEditText イベントを発生させています if Assigned(FOnGetEditText) then FOnGetEditText(Self, Value); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.