掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DBGRID特定列入力制限 (ID:49124)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
自己レスです。 検索したところ下記にて対応しました。 procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); var AcceptStr: string; begin if DBGrid1.SelectedField.FieldName = 'TEST' then begin AcceptStr := '01'; if (Pos(Key,AcceptStr)=0) and (Ord(Key) <> VK_BACK) then Key := #00 else Key := Key; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.