掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
PickListで選択のみにしたい (ID：2512)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ちょっと危険なコードですが、以下のようにしてReadOnlyにすることができます。 //クラスを用意 type TMyGrid=class(TCustomGrid) public property InplaceEditor; end; TMyEdit=class(TCustomEdit) public property ReadOnly; end; ・・・・ //DBGridにフォーカスが入ったらReadOnlyにする procedure TForm1.DBGrid1Enter(Sender: TObject); begin try TMyEdit(TMyGrid(DBGrid1).InplaceEditor).ReadOnly := True; except ; end; end; Copyはできてしまいます。 かなり危険なコードですので、ほかに良い方法が見つかりましたら、こちらは使用しないようにしてください。 # あまり細かく検証できていません！
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.