掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Exitイベントをoverrideする方法を教えてください (ID:10812)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
DoExit メソッドを override します。 type TMyEdit = class(TEdit) protected procedure DoExit; override; end; ... procedure TMyEdit.DoExit; begin if (Text = 'C') or (Length(Text)=0) then // 色々な条件で begin Text := ''; SetFocus; end else inherited; // 通常処理=イベントハンドラを呼び出す and 次にフォーカスが移る end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.