掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
(FireMonkey)StringGridのあるセルを入力不可にするには？ (ID:43088)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
あるカラムを入力不可にしようと思ったのですが・・・。 マウスで対象のところに移動した場合は、入力不可となりますが、 キーボードで移動した場合は、なぜか入力可能となります。 どうすれば、良いのでしょうか？ 下記、現時点のソースです。 procedure TForm1.FormCreate(Sender: TObject); var I: Integer; J: Integer; begin StringGrid1.AddObject(TStringColumn.Create(StringGrid1)); StringGrid1.AddObject(TStringColumn.Create(StringGrid1)); StringGrid1.AddObject(TStringColumn.Create(StringGrid1)); StringGrid1.Columns[0].Header := 'H1'; StringGrid1.Columns[1].Header := 'H2'; StringGrid1.Columns[2].Header := 'H3'; for I:=1 to StringGrid1.ColumnCount do begin for J:=1 to StringGrid1.RowCount do begin StringGrid1.Cells[I - 1, J - 1] := 'データ' + IntToStr(I * J); end; end; end; procedure TForm1.StringGrid1SelChanged(Sender: TObject); begin if (StringGrid1.ColumnIndex = 1) then begin StringGrid1.ReadOnly := True; end else begin StringGrid1.ReadOnly := False; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.