掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ストリンググリッドで特定の列を入力不可にする方法 (ID：11224)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
微妙な動きなので申し訳ないですが＾＾； TMyStringGrid=class(TStringGrid) public property InplaceEditor; end; を定義。 FormShowで、 StringGrid1.SetFocus; // フォーカスを移す StringGrid1.EditorMode := True; // 編集モード開始(インプレースエディットが作成される) StringGrid1.EditorMode := False; // 編集モード終了 Memo1.SetFocus; // 最初にフォーカスを与えるコントロールにしてください とします。 あとは、SelectedCellで、 procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin if Assigned(TMyStringGrid(StringGrid1).InplaceEditor) then TMyStringGrid(StringGrid1).InplaceEditor.Enabled := (ACol and 1) = 1; end; とすれば、この場合は奇数列のみ入力を許可します。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.